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PRESENTACIÓN 


La presencia cada vez más frecuente de los microordenadores 
en el hogar y en la escuela ha hecho posible nuevas y suges- 
tivas formas de aprendizaje e incluso de diversión, accesibles a 
cualquier persona con un nivel básico de conocimientos. Pero 
para aprovechar estas posibilidades es necesario comunicarse 
con el microordenador, y esta comunicación se establece me- 
diante un lenguaje especial que «entienden» la mayoría de 
los microordenadores: el lenguaje BASIC, 

Este lenguaje se puede aprender con relativa facilidad y 
tiene la ventaja de permitir desde un principio una comunica- 
ción directa con el microordenador, a modo de diálogo. Esto 
aporta una cierta satisfacción personal, al ir descubriendo la 
versatilidad de la máquina con la que se está aprendiendo o 
jugando, y al surgir progresivamente una especie de desafío 
en el dominio de la misma. 

En este contexto se ha escrito este libro, cuyo principal obje- 
tivo es facilitar el aprendizaje del lenguaje BASIC. Siguiéndole 
paso a paso se logran adquirir las técnicas fundamentales de 
la programación, y perseverando en su estudio se puede lle- 
gar a saber programar en breve tiempo. 

En el proceso de elaboración del libro se ha seguido el mé- 
todo inductivo, que lleva a la comprensión y utilización de las 
instrucciones BASIC partiendo de ejemplos sencillos y con- 
cretos. También se ha procurado dar a esta obra un enfoque 
práctico, lo que contribuye a que el propio lector pueda reali- 
zar sin ayuda, pequeños programas sobre diversos asuntos 
vinculados a su experiencia diaria. 


El enfoque práctico se ha reforzado incluyendo en cada uno 
de los temas la sección EJERCICIOS RESUELTOS, cuyos pro- 
gramas pueden servir de referencia para realizar los abun- 
dantes y variados programas propuestos en los EJERCICIOS DE 
RECAPITULACIÓN, si bien hay que advertir que no existen re- 
glas fijas para programar. 

LOS AUTORES 


Tanto los programas con los que se expli- 
can las distintas instrucciones BASIC como 
los incluidos en la sección EJERCICIOS RE- 
SUELTOS se pueden ejecutar en todos los 
microordenadores. 
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1. El microordenador 


1. Una nueva máquina: el microordenador 


En sentido amplio, una máquina es un dispositivo o un conjunto de dispositivos 
que cumple una determinada función y que contribuye a satisfacer nuestras nece- 
sidades. Por ejemplo, una carretilla es una máquina que nos ayuda a transportar 
pesos con menor esfuerzo y mayor comodidad; los medios de transporte, como el 
automóvil, el tren y el avión, son máquinas que nos permiten viajar más rápida- 
mente; los medios de comunicación, como el teléfono, la radio y la televisión, son 
también máquinas que nos ayudan a relacionarnos mejor. 


En estos últimos años, en la sociedad moderna en que vivimos, ha surgido una 
nueva necesidad como consecuencia del desarrollo alcanzado por la economía y 
la ciencia: la de mecanizar y automatizar una parte de nuestro trabajo intelec- 
tual. Ello supone organizar, almacenar y procesar una gran cantidad de datos 
y, en general, todo tipo de información. 


Las máquinas que nos ayudan a realizar esta función son los ordenadores, que 
han nacido y evolucionado paralelamente al desarrollo de la electrónica, y cuya 
capacidad en el tratamiento de la información supera la propia capacidad hu- 
mana. 


Los microordenadores son un tipo de ordenadores que han aparecido última- 
mente, en la década de los 70. Estas máquinas, tan pequeñas y potentes, han 
surgido como consecuencia del espectacular desarrollo alcanzado por la tecnolo- 
gía electrónica, concretamente en el campo de los circuitos integrados. 


Un ordenador es una máquina que nos ayuda Un microordenador es un tipo de ordenador 
a mecanizar parte de nuestro trabajo intelec- que cumple muchas de las funciones realizadas 
tual: organizar, almacenar y procesar grandes por éste y que, gracias a las tecnologías de mi- 
cantidades de datos y, en general, de informa-  niaturización electrónica, ocupa un reducidí- 
ción. simo espacio. 


Por el hecho de que los microordenadores puedan realizar complicadas funciones, 
como resolver cálculos larguísimos a elevada velocidad y sin cansarse ni equivo- 
carse, mucha gente cree que son máquinas misteriosas con capacidades poco 
menos que sobrehumanas. Nada de eso: un microordenador, como cualquier má- 
quina, no piensa, hay que pensar por él; y no sirve para nada si no se le pro- 
grama adecuadamente, es decir, si no se le indica lo que tiene que hacer. 


2. Partes de un microordenador 


Al observar un microordenador, como el de la fotografía, distinguimos a simple 
vista una consola que lleva incorporado un teclado, y una pantalla como la de 
una televisión (en muchos microordenadores puede servir incluso un televisor). 


El teclado y la pantalla son partes importantes del microordenador, pero lo esen- 
cial del mismo se encuentra en el interior de la consola: es la MEMORIA y el MI- 
CROPROCESADOR. 


MEMORIA 


TECLADO PANTALLA 


MICROPROCESADOR 


10 


En resumen, podemos decir que un microordenador se compone de cuatro partes 
unidas entre sí: la ENTRADA (teclado), la MEMORIA, el MICROPROCESADOR y 


la SALIDA (pantalla). 


ENTRADA SALIDA 


(teclado) (pantalla o impresora) 


MICROPROCESADOR 


El dispositivo de salida en lugar de una pantalla (o monitor) puede ser una impre- 
sora. 


3. Cómo mecanizamos nosotros algunos procesos intelectuales y 
cómo lo hace el microordenador 


Antes de estudiar cómo trabaja un microordenador, vamos a analizar, en un 
ejemplo concreto, cómo se mecaniza un cierto proceso intelectual. 


Supongamos que deseamos obtener el valor de Y, para X = 8 en la expresión: 
Y=X+6 


Aunque este proceso lo llevamos a cabo casi instantáneamente, en realidad lo 
realizamos siguiendo varios pasos sucesivos: 


— Leemos la expresión Y = X + 6. 


— Retenemos en la memoria la expresión anterior. 
Para la variable X, que en principio no tiene asignado ningún valor, reser- 
vamos en nuestra memoria una «posición», por decirlo de alguna manera, en 
espera de asignarle un valor numérico. También reservamos otra «posición» 
de memoria para la variable Y, que al final almacenará el resultado de la ope- 
ración X + 6. 


— Calculamos la suma 8 + 6 y el resultado se lo asignamos a la variable Y. 


— Escribimos el resultado de la suma. 
En concreto, las funciones básicas llevadas a cabo en este proceso son: 


* LECTURA 

* MEMORIZACIÓN 
* CÁLCULO 

* ESCRITURA 


Pues bien, el microordenador, para realizar este proceso, cumple esencialmente 
las mismas funciones, mediante los dispositivos electrónicos que componen las 
UNIDADES que muestra la figura, y que ya hemos mencionado en el apartado an- 


terior. 


UNIDAD DE 
ENTRADA 


LECTURA 


En la unidad de en- 
trada (a través del te- 
clado) se lee la expre- 


sión 
Y=X+6. 


MEMORIA 


MICROPROCESADOR 


MEMORIZACIÓN 


La expresión leída 
pasa a la memoria. 
Las variables X e Y 
ocupan posiciones de 
memoria, en las que 


CÁLCULO 


El microprocesador 
calcula la suma 8 + 6 
y transfiere el resul- 
tado 14 a la memona, 
almacenándose en Y. 


UNIDAD DE 
SALIDA 


ESCRITURA 


En la unidad de sa- 
lida (en la pantalla o 
Impresora) aparece el 
resultado 14. 


se alojarán los valores 
8 y 14, respectiva- 
mente. 


Para el microordenador, leer un dato, una variable, un operador o una expresión 
consiste en teclearla. Inmediatamente después de ser tecleada pasa a ocupar una 
posición en la memoria. 


El microprocesador cumple dos funciones: dirige y sincroniza las distintas etapas 
del proceso y realiza operaciones aritméticas y lógicas. 


Para que el microordenador lleve a buen término todo el proceso hay que indi- 
carle el orden de los distintos pasos que tiene que seguir. En el ejemplo concreto 
que venimos analizando, el orden de las instrucciones podría ser el siguiente: 


1. INTRODUCIR X 
Inmediatamente después de ser tecleada esta instrucción (leída) se almacena 
en la memoria. 


2. CALCULAR EL VALOR DE Y EN LA EXPRESION Y = X + 6 
Como en la instrucción 1, inmediatamente después de ser tecleada esta ins- 
trucción se almacena en la memoria. 


3. ESCRIBIR O IMPRIMIR EL VALOR DE Y 
Esta instrucción también se almacena en la memoria. 


4. TERMINAR (FIN) 


Esta instrucción, que se almacena en la memoria, indica al microordenador el 
fin del proceso. 
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Este conjunto de órdenes o instrucciones constituye el PROGRAMA de trabajo, 
que seguirá ciegamente el microordenador. 


Para obtener el resultado de la suma y su escritura, hay que ordenar al microorde- 
nador que ejecute el programa y, a continuación, introducir un valor para la va- 
riable X (por ejemplo, 8). 


4. La memoria 


e La memoria de un microordenador es un dispositivo electrónico que cumple las 
funciones de almacenar datos y demás información, conservarla y devol- 
verla cuando se la pida. 


La memoria se puede comparar con un panal con muchas celdillas, llamadas 


posiciones de memoria. 


Celdilla: 


posición de memoria 


Al introducir un dato en la memoria es necesario dar un nombre a la posición 
de memoria en la que se guarda dicho dato, pues de lo contrario sería imposi- 
ble encontrarlo posteriormente. 


Una posición de memoria etiquetada con un nombre se denomina variable, ya 
que puede contener datos diferentes (variables) en el curso de la ejecución de 


un programa. 


LAT LB] 


Posición de memoria 
etiquetada con el nombre A 
(Variable A) 


Posición de memoria 
etiquetada con el nombre B- 
(Variable B) 


La posición de memoria etiquetada con A almacena en este instante el dato 
numérico 6 y la etiquetada con B contiene el dato numérico 83. 


Esto suele indicarse así: 

A =6 

B = 83 
(El nombre de la variable se escribe a la izquierda y el valor que tiene en un de- 
terminado instante se escribe a la derecha, separados por el signo igual.) 


¿Qué ocurre cuando se extrae un determinado dato de una posición de memo- 
ría? Cuando de una posición de memoria se extrae un dato, bien para realizar 
un cálculo con él, bien para llevarlo a otra posición de memoria, dicho dato se 
conserva en la posición en que se encontraba. Pasa algo parecido a lo que 
ocurre cuando se reproduce un mensaje grabado en una cinta de casete: por 
el hecho de reproducirlo para escucharlo, no se borra la cinta. 


e ¿Y qué ocurre cuando se introduce un dato en una posición de memoria? 
Cuando se introduce un dato en una posición de memoria, lo que contenía 
hasta ese instante se borra, quedando almacenado en la misma el último dato 
que entró. Ocurre lo mismo que en una cinta de casete grabada: en el instante 
de grabar un mensaje, se borra el anterior. 


La posición A contiene el dato 12 y la B, Cuando se transfiere el 12 de la posición 


el 25, A A a la B se conserva el 12; en la B, en 
(Ai= 12. .B =:25) cambio, se borra el 25. 
(A:=12.B= 12.) 


5. Un lenguaje que entiende el microordenador: 
el lenguaje BASIC 


Consideremos, por última vez, el programa mediante el cual se calcula el valor de 
Y, en la expresión Y = X + 6. 


1 INTRODUCIR X 

2 CALCULAR EL VALOR DE Y EN LA EXPRESION Y = X + 6 
3 ESCRIBIR O IMPRIMIR EL VALOR DE Y 

4 TERMINAR (FIN) 


El lenguaje en el cual está escrito este programa no lo “entiende” el microorde- 
nador. Sin embargo, si lo escribimos de la siguiente forma 


1 INPUT X 

2 LETY=X+6 
3 PRINT Y 

4 END 


sí lo “entiende” el microordenador. El lenguaje en el cual están escritas estas ins- 
trucciones se llama BASIC; esta palabra se forma con las iniciales de las palabras 
de la expresión inglesa “Beginner's All-purpose Simbolic Instruction Code” (có- 
digo de instrucción simbólica para principiantes para todos los usos). Este lenguaje 
utiliza algunas palabras en inglés, símbolos de puntuación habituales y funciones 
matemáticas corrientes. 


A lo largo de este libro explicaremos detalladamente el significado de los términos 
que aparecen en el programa anterior y de otros más que forman parte del len- 
guaje BASIC. 


Existen otros lenguajes que también pueden “entender” los microordenadores, 
como el Pascal, Cobol, Fortran, Forth, Logo, etc. Estos lenguajes no los estu- 
diaremos en este libro. 


1. Dos posiciones de memoria están etiquetadas con A y B y almacenan 
los datos 1 y 7, respectivamente (A = 1 y B = 7). Explicar el signifi- 
cado de las siguientes expresiones: 


a) A=1 
bh). B:=7 
d) B=A 
Solución: 


a) A =1, significa que la posición de memoria etiquetada con A al- 
macena el dato 1. 


b) B=7, significa que la posición de memoria etiquetada con B al- 
macena el dato 7. 


c) B=A, significa que la posición de memoria etiquetada con B al- 
macena el contenido de A, o sea, 1. Luego B =1. 
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2. SiD=4yE€E = 9, indicar la situación final de estas posiciones de me- 
moria si el contenido de E se lleva a D (D = E). 


Solución: 


El contenido de D se borra al “entrar” el contenido de E, o sea, 9, 
mientras el contenido de esta última posición permanece. 


Se tiene, entonces, la siguiente situación final: 
=9yE=9 
3. SeaA =5yB = 14. Indicar el procedimiento para traspasar el con- 
tenido de AaB y el deB a A. 
Solución: 


Si se traspasa el contenido de A a B, el de B ya no se puede traspasar 
a A, porque el contenido inicial de B queda borrado. 


Para poder hacer el traspaso es necesario utilizar una tercera posición 
de memoria; la llamaremos C. Realizamos el movimiento de datos in- 
dicado en el esquema: 


EJERCICIOS DE RECAPITULACIÓN soso 


1. 1. Indica el contenido de las posiciones de memoria, después hacer los movi- 
mientos de datos indicados en la figura. 


1. 2. Dos posiciones de memoria están etiquetadas con P y Q. Interpreta el sig- 
nificado de la expresión Q = P. 


1. 3. Las posiciones de memoria A y B almacenan los datos 3 y 7, respectiva- 
mente. Indica el contenido final de A y B, si se hace el movimiento de 
datos B = A. 


1. 4. Expresa en símbolos los movimientos de datos representados en las figuras 
y el contenido final en las posiciones de memoria A, B y C. 


1. 5. Las posiciones A, B y C contienen los datos 5, 8 y 13, respectivamente. In- 
dica el contenido de estas posiciones, después de hacer los siguientes mo- 
vimientos. 

a) B=A b) B=A ) B=C d) A=B 
C=A B=C A=B B=C 
C=B C=A 


1. 6. Averigua el contenido de las posiciones de memoria H y J, después de ha- 
cer los movimientos de datos indicados en la figura. 


lll 


PA 


Escribe las expresiones que describen el procedimiento para traspasar el 
contenido de la posición de memoria R a la posición S y el de SaR. 


Analiza si el siguiente procedimiento logra traspasar el contenido de A a B 
y el de Ba A. (Almacena datos en A y B para ayudarte a resolver el pro- 
blema.) 


UU MN — 
“o 0 0 
wW»>0Qn 
A A 
p>Pnw 


¿Qué es necesario hacer con un programa antes de ser ejecutado por el 
microordenador? 


En tu propio lenguaje, escribe un programa que calcule el valor de Z, para 
X=3eY= 17, en la expresión Z = X + Y. 


Escribe las funciones que realizan las distintas unidades de un microorde- 
nador para realizar el cálculo del ejercicio anterior. (Dibuja un esquema 
como el incluido en el apartado 3 de este capítulo.) 


En tu propio lenguaje, escribe un programa que calcule, para A =5,P = 5 * 
AyQ = 2,5 * A + 7 y halle la suma P + Q de tal manera que ésta quede 
almacenada en X. 


2. Comenzando a programar 
en BASIC 


1. Un primer programa en BASIC 


Vamos a hacer un programa que calcule el valor de P en la expresión P = 2,53X — 
— 20,358, para un cierto valor de X. 


En nuestro propio lenguaje, el programa sería el siguiente: 


1 INTRODUCIR X 

2 HACER P = 2,53 X — 20,358 

3 ESCRIBIR O IMPRIMIR EL VALOR DE P 
4 TERMINAR (FIN) 


Pero, como ya sabemos, estas instrucciones expresadas en nuestro lenguaje no las 
entiende el microordenador; las escribiremos, por tanto, en lenguaje BASIC. 


INPUT X 

LET P = 2,53 * X — 20.358 
PRINT P 

END 


Observaciones sobre este programa 


1.2 Este programa se compone de cuatro órdenes o instrucciones numeradas de 10 
en 10. El número que precede a cada instrucción indica el orden en que el mi- 
croordenador debe ejecutarlas. 


Las instrucciones se pueden ordenar con los números 1, 2, 3, ..., pero se acon- 
seja numerarlas de 10 en 10, pues ello permite añadir en cualquier momento 
instrucciones olvidadas con numeración intermedia. 
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2.2 En cada instrucción, después del número aparece una palabra o expresión in- 
glesa, que indica el tipo de acción que debe ejecutar el microordenador: 


INPUT: introduce 

LET: deja, haz 

PRINT: escribe, imprime 
END: fin (*) 


3.2 La instrucción 
20 LETP = 2,53 + X — 20.358 
merece una atención especial. 
— El número 20 es el número de instrucción. 
— LET es la orden escrita en BASIC. 
— Las letras P y X son variables (posiciones de memoria etiquetadas). 


— El símbolo igual (=), aquí no tiene el mismo significado que en aritmética. 
Cuando el microordenador se “encuentra” con este símbolo, interpreta que 
el resultado de la operación escrita a la derecha del mismo lo tiene que al- 
macenar en la variable escrita a la izquierda. 


— El signo * es el operador aritmético de multiplicar. 


— Los números 2,53 y 20,358 en BASIC se escriben 2.53 y 20.358, respectiva- 
mente: observar que la coma decimal está sustituida por un punto y que el 
cero está tachado (0). Respecto a esto último señalaremos que la letra O y 
el cero, 0, están en teclas distintas y ambos símbolos se distinguen porque 
el cero está tachado, (0) (**). 


2. Cómo se almacena un programa en memoria 


Una vez escrito un programa en el papel, se teclea cada instrucción pulsando a con- 


tinuación la tecla | ENTER| (o | RETURN | o |NEW LINE|, etc., según el microordena- 


dor). 
En este libro utilizaremos | ENTER |. 


(*) En algunos microordenadores no es necesario poner la instrucción END; incluso, el microordena- 
dor ZX Spectrum no dispone de esta instrucción. 


(**) En este libro no tacharemos el cero porque en tipos de imprenta ambos símbolos están perfecta- 
mente diferenciados (el cero es alargado, O, y la letra es más redonda, O). 
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Cuando se acciona esta tecla la instrucción pasa automáticamente a la memoria. Sí 
no se acciona, el microordenador no se da por enterado de la instrucción es- 
crita; es decir, no pasa a la memoria. Por ejemplo, si se teclea 

10 INPUT X 


y no se pulsa la tecla | ENTER], la instrucción queda escrita en la pantalla pero no 
pasa a la memoria. En cambio, si se teclea 


10 INPUT X | ENTER 


la instrucción aparece en la pantalla y, además, se almacena en la memoria. 


Si tecleamos el programa anterior, lo veremos así en la pantalla. (¡NO OLVIDARSE DE 
PULSAR LA TECLA [ENTER] DESPUÉS DE CADA INSTRUCCIÓN!) 


10 INPUT X 

20 LETP = 2.553 * X — 20.358 
30 PRINTP 

40 END 


3. Cómo se procesa un programa almacenado en memoria 


El programa lo tenemos ya almacenado en la memoria. ¿Qué tenemos que hacer 
para que el microordenador lo ejecute, es decir, para que interprete las instrucciones 
y realice los cálculos? 


Para que el microordenador ejecute el programa se escribe la palabra RUN, pulsando 
a continuación la tecla | ENTER]. 
Al ejecutar la primera instrucción 


10 INPUT X 
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aparece en pantalla un signo de interrogación (en algunos microordenadores, L), de- 
teniéndose momentáneamente la ejecución del programa. 


Con esta interrogación (o con L) el microordenador pregunta qué valor deseamos 
asignar a la variable X de la primera instrucción. Si, por ejemplo, tecleamos 100 (y 


ENTER )), la ejecución continúa, apareciendo inmediatamente en la pantalla el valor 
correspondiente a P: 


232.642 


¿Cómo ha llegado el microordenador al resultado 232.642? 


Con el valor 100 almacenado en la posición de memoria, representada por X, el mi- 
croordenador ejecuta la instrucción 


20 LETP = 2,53 * X — 20.358 


Esta instrucción indica a la máquina que realice las operaciones aritméticas indicadas 
a la derecha del signo igual y el resultado lo almacene en la posición de memoria re- 
presentada por P, situada a la izquierda del signo igual. Es decir, calcula 2.53 * 100 
— 20.358 y el resultado 232.642 lo almacena en P. 
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A continuación se ejecuta la instrucción 
30 PRINT P 


que ordena al microordenador escriba o imprima en la pantalla el valor almacenado 
en la posición de memoria representada por P. 


Finalmente, se ejecuta la instrucción 
40 END 
que indica al microordenador que el programa ha terminado. 


Ejercicios 
2.1. Escribe un programa que calcule la expresión Y = 0,23 X + 0,8 e imprima el resul- 


tado. 


2.2. Explica cómo harías para ejecutar el programa anterior. 
¿Se detiene la ejecución en algún momento? ¿Qué tienes que hacer para que con- 
tinúe la ejecución? 


2.3. Escribe un programa que calcule la suma de dos números e imprima el resultado. 


2.4. Escribe un programa que calcule el producto de dos números e imprima el resul- 
tado. 


4. Operadores aritméticos 


En la instrucción 20 del programa del apartado anterior. 
20 LETP = 2,53 * X — 20.358 


se ha utilizado el operador * (correspondiente a X) para multiplicar la constante 
2.53 y la variable X. En lenguaje BASIC se utilizan los operadores aritméticos habi- 
tuales, cuyos símbolos se transcriben a continuación: 


Paréntesis: ( ) 
Elevar a una potencia: $ o A 


Producto: *, y cociente: / 
Suma: + ,y resta: — 


En una expresión aritmética, primero se calculan las potencias (*), después los 
productos y cocientes y, finalmente, las sumas y restas. Si se desea alterar este or- 
den de prioridad se utilizan los paréntesis. Por último, después de haber seguido 
todos estos criterios, la expresión se evalúa de izquierda a derecha. 


(*) El ZX Spectrum sólo calcula potencias de números positivo. 
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Por ejemplo, las dos expresiones siguientes contienen los mismos números y, sin 
embargo, su valor es distinto debido a la prioridad impuesta por los paréntesis: 

a) 10-8/2 1 3+5-5*4=10-8/8+5-20=10-1+5-20=-6. 

b) 10-(8/2) 1 34+5-5*4=10-4 1 34+5-5*4=10-64+5-20=-69. 

En la expresión a) el primer cálculo que hay que realizar es la potencia 2 f 3 = 
=2* = 8 y en la expresión b) el paréntesis indica que lo primero que hay que cal- 
cular es el cociente encerrado entre paréntesis (8 / 2). 


5. Cómo se cambian las instrucciones de un programa y cómo se 
borran 


e Según se va escribiendo una instrucción de un programa es normal que se te- 
clee un símbolo por otro. Si uno se da cuenta del error cometido antes de pul- 
sar la tecla | ENTER|, es decir, antes de cargar en memoria la instrucción, se 
puede corregir el error utilizando una tecla que tienen todos los microordena- 
dores y, aunque recibe distinto nombre cumple la misma función: hace retro- 
ceder el cursor, borrando, uno a uno, los símbolos escritos. 


e Si deseamos hacer algún cambio en una determinada instrucción de un pro- 
grama cargado ya en la memoria procedemos de la siguiente manera: 


— Averiguamos primero el número de la instrucción o instrucciones que de- 
seamos modificar. Para ello se hace aparecer en la pantalla el listado del 
programa, tecleando la instrucción LIST (y | ENTER |). 

Supongamos que en este momento está cargado en la memoria del mi- 


croordenador el programa anterior. Utilizando la instrucción LIST se obtiene 
su listado en la pantalla: 


10 INPUT X 

20 LETP = 2,53 * X — 20.358 
30 PRINTP 

40 END 
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— Si ahora deseamos modificar la instrucción 20, por ejemplo, basta teclearla 
de nuevo, introduciendo las modificaciones. Si escribimos 


20 LETP =0.5*X+ 16 


y pulsamos la tecla | ENTER|, se borra de la memoria la primitiva instrucción 


20 y queda cargada la 20 modificada. Para verificarlo, listamos de nuevo el 
programa y obtendremos en pantalla el nuevo listado: 


10 INPUT X 

20 LETP=.5*X+ 16 (*) 
30 PRINTP 

40 END 


e Cuando se conoce de antemano el número de la instrucción que se desea 
modificar, no es necesario listar el programa; es suficiente con teclearla de 
nuevo. Sin embargo, para mayor seguridad conviene listarla, para lo cual se 
teclea la instrucción LIST y, a continuación, el número de la instrucción (y 


ENTER]|). Así, tecleando LIST 20 (y | ENTER|) se consigue hacer aparecer en 
la pantalla la instrucción 20. Para modificarla, ésta se teclea de nuevo. 

Si se desea eliminar una instrucción de un programa basta con teclear el nú- 
mero de la misma (y | ENTER )). Por ejemplo, si escribimos 30 (y | ENTER|) y, a 


continuación, listamos el programa anterior, se obtiene lo siguiente en la 
pantalla: 


10 INPUT X 
20 LETP=.5*X+ 16 
40 END 


(*) Los números decimales con parte entera nula, el microordenador los escribe omitiendo el cero. 
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En este listado comprobamos que la instrucción 30 PRINT P no se encuentra 
ya cargada en la memoria. 


e Para borrar todo el contenido de la memoria se escribe NEW (nuevo programa) 
y se pulsa a continuación la tecla | ENTER]. 


También se puede borrar todo el contenido de la memoria desconectando y 
conectando el microordenador. 


e Para borrar solamente lo que está escrito en la pantalla, la mayoría de los mi- 
croordenadores utilizan la instrucción CLS. Esta instrucción no borra lo almace- 
nado en la memoria. 


6. Errores de sintaxis 


Tecleamos el siguiente programa que calcula el producto de un número X por 
13.85 e imprime el resultado: 


10 IMPUT X 

20 LETY = 13.85 + X 
30 PRINT Y 

40 END 


Inmediatamente después de escribir RUN (y | ENTER|) para ejecutar el programa, 


el microordenador, en lugar de imprimir el resultado, nos informa que hemos co- 
metido un error al teclear el programa, imprimiendo un mensaje en la pantalla: 


? SINTAXIS ERROR IN 10 
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Este mensaje significa error de sintaxis en 10. Efectivamente, si nos fijamos bien 
en la instrucción 10 observamos que escribimos IMPUT, con M, en lugar de IN- 
PUT. (El mensaje de error puede ser diferente, según el microordenador; puede 
ser incluso un número clave.) 


Para corregir este error se modifica la instrución 10, mediante el procedimiento 
explicado en el apartado anterior. 


Ejercicios 


2.5. 


2.6. 


Za 


2.8. 


2.9. 


¿Qué aparecerá en la pantalla al ejecutar el siguiente programa? 


10 INPUTA 

20 INPUT B 

30 LETC=A7f B 
40 PRONT C 

50 END 


Explica cómo harías para corregir el programa anterior, de tal manera que al eje- 
cutarlo llegue a imprimir el valor de C. 


Escribe un programa que calcule el cuadrado de un número e imprima el resul- 
tado. 


Indica qué calcula el siguiente programa: 


10 INPUT A 

20 INPUT B 

30 INPUT C 

40 LETX=Ax*Bx*C 

50 PRINT X 

60 END 

¿Cuántas veces se detiene la ejecución de este programa? ¿Por qué? 


El siguiente programa debe sumar dos números y a la suma multiplicarla por 5. 
¿Logra hacer este cálculo? En caso negativo modifica el programa. 


10 INPUT H 

20 INPUT J 

30 LETP=H+J*5 
40 PRINTP 

50 END 


7. Resumen de las instrucciones estudiadas en este capítulo 


e LET 


— Significado: asigna. 
— Formato: n LET (variable) = (expresión) 
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— Función: calcula el valor de la expresión y lo asigna a la variable. 
— Observación: en la mayoría de los microordenadores no es necesario es- 
cribir la palabra LET, basta escribir la variable: 
Ejemplo: la instrucción 
40 LETY =X 7 2+0.5 * X 
la aceptan escrita así: 
40Y=X172+05+*X 


e END 


— Significado: fin. 

— Formato: n END. 

— Función: indica la terminación de un programa. 

— Observación: algunos microordenadores no exigen incluir esta instrucción, 
por ejemplo, el ZX Spectrum. 


e ENTER|, [RETURN], [NEW LINE], u otra equivalente 


— Significado: entra, vuelve, línea nueva... 

— Función: hace que el dato o instrucción tecleados se almacene en la me- 
moria, o que se ejecute una instrucción del tipo NEW, LIST, etc. 

— Observación: en prácticamente todos los microordenadores esta orden 
está en una sola tecla, lo que permite ahorrar tiempo de tecleado, ya que 
para que cumpla su función no es necesario teclear todas sus letras, sóla- 
mente hay que pulsar dicha tecla. 


e RUN 


— Significado: corre, ejecuta. 
— Función: inicia la ejecución de un programa. (En el argot informático suele 
decirse “correr” el programa.) 


e NEW 


— Significado: nuevo. 
— Función: borra todo el contenido de la memoria. 


e LIST 


— Significado: lista. 
— Función: hace aparecer en la pantalla el listado de un programa almace- 
nado en la memoria. 
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— Observaciones: 


— Para listar todo el programa se escribe LIST. 

— Para listar una sola instrucción se escribe LIST n, donde n es el número 
de dicha instrucción. 

— Para listar una serie seguida de instrucciones se escribe LIST n, - n,, 
donde n, es la primera instrucción de la serie y n,, la última. 

— Para listar las instrucciones comprendidas entre n y el final, se escribe 
LIST n- 

— Para listar todas las instrucciones anteriores a la n se escribe LIST-n. 


NOTA: Las instrucciones INPUT y PRINT se estudiarán con más detalle en el siguiente 
capítulo. 


me EJERCICIOS RESUELTOS ras 


1. Hacer un programa que calcule el área de un trapecio. 


Solución: 

— La fórmula del área del trapecio es A = BUE, -h 
by 
b, 


— En el programa habrá que poner tres instrucciones INPUT, una 
para introducir b,, otra para introducir b>, y una tercera para in- 
troducir h. 


10 INPUT B1 

20 INPUT B2 

30 INPUT H 

40 LETA = ((B1 + B2)/2) + H 
50 PRINTA 

60 END 


— Después de teclear RUN y [ENTER el microordenador pedirá tres va- 
lores (aparecerán en la pantalla sucesivamente tres interroga- 
ciones). 
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Ze 


Sírvete del microordenador para obtener valores de Y que te ayuden a 
representar gráficamente la parábola de ecuación y = 0,5 X? — 4,27 X+ 
+ 4,58 


, 


Solución: 


Lo primero que conviene calcular es la abscisa del vértice, mediante 
la fórmula: 


Xy = - A . Sustituyendo a y b se obtiene 4.27 (*). 


A continuación, hacemos un programa para calcular valores de Y co- 
rrespondientes a los valores de X. 


10 INPUT X 

20 LETY=0.5*X 7 2 -— 4.27 * X + 4.58 
30 PRINT Y 

40 END 


Cada vez que se desee obtener un valor de Y hay que teclear RUN y 
ENTER |. El primer valor de Y que conviene calcular es la ordenada del 
vértice. Para ello tecleamos 4.27, después de que aparezca la interro- 
gación en la pantalla; obtenemos el valor — 4.53. Así se puede obte- 
ner una tabla de valores, introduciendo valores de X a la izquierda y 
a la derecha de 4.27. 


(*) Este cálculo se puede hacer también con el microordenador, escribiendo 


PRINT — (-4.27) / (2 * 0.5) 
Después de pulsar | ENTER | aparece en la pantalla 4.27 (Ver capítulo siguiente, apartado 5, El 


microordenador como calculadora.) 
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Después de obtener varios pares de valores, procedemos a hacer la 
representación gráfica en papel milimetrado o cuadriculado. 


o EJERCICIOS DE RECAPITULACIÓN merce 


Ze 
2.2, 


23, 


2.4, 


ZA 


Escribe un programa que calcule el producto de dos números y lo imprima. 


Explica qué hace el siguiente programa: 
10 INPUTA 

20 LETB=A+1 

30 PRINT B 

40 END 


Suponte que el programa del ejercicio anterior está cargado en la memoria 
del microordenador. ¿Qué tienes que hacer para ejecutarlo? 


Según estás tecleando la instrucción. 
20LEPB=A+ 1 


te das cuenta, antes de pulsar la tecla | ENTER |, que has cometido un error 
al escribir LEP en lugar de LET. ¿Qué harías para corregir este error? 


Al ejecutar el siguiente programa, aparece en la pantalla un mensaje de 
error. Averigua cuál es dicho error y el mensaje que emite el microordena- 
dor. 

10 INPUT N 

20 LET=C=Nf13 

30 PRINT C 

40 END 


31 


206, 


2. 


2.8. 


23, 


2.10. 


Explica cómo harías para corregir el programa anterior para lograr que ter- 
mine su ejecución. 


Al teclear el programa siguiente tienes un lapsus y escribes una instrucción 
dos veces con número diferente. ¿Cómo harías para borrar la instrucción 
que no corresponde? 


10 INPUT P 

20 LETD = P/168.690 
30 PRINTD 

40 PRINT D 

40 END 


Nota: La cotización del dólar corresponde al día 10-9-84. 


Después de escribir un programa en el papel deseas cargarlo en memoria, 
estando almacenado en ésta un programa que no te interesa conservarlo. 
¿Qué harías antes de empezar a teclear el nuevo programa? 


Escribe en lenguaje BASIC la siguiente expresión: 


2 
y = 0,27 |? — Ex ES 30-35 


En los programas siguientes indica en qué orden se hacen las operaciones y 
qué resultado imprimirá el microordenador en la pantalla. 
a] 10 LETY=5-5+8 f 2 

20 PRINT Y 

30 END 
b) 10 LETY=(5-5)*8 1 2 

20 PRINT Y 

30 END 
dd 10 LETY=5-2+47P 3 

20 PRINT Y 

30 END 


a) 10 LEN Y=5-(2+4) f 3 
20 PRINT Y 
30 END 
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3. Avanzando 
en la programación 


1. La instrucción INPUT 


Vamos a elaborar un programa que calcule el área de cualquier rectángulo y des- 
pués lo escriba o imprima. 


Llamamos B a la base del rectángulo y H a su altura. Como ya sabemos, el área S 
es igual al producto B por H. 


APA 


e Un posible programa sería el siguiente: 


INPUT B 
INPUT H 
LETS=B*H 
PRINTS 

END 


(Introducirlo en la memoria pulsando | ENTER| después de cada instrucción.) 


Al teclear RUN (y | ENTER!) comienza la ejecución. Ésta se interrumpe apare- 
ciendo una interrogación, pidiendo un dato (tecleamos 8, y | ENTER). Nueva- 
mente se detiene la ejecución, apareciendo otra interrogación, pidiendo un se- 
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gundo dato (tecleamos 5, y | ENTER). A continuación aparece en la pantalla el 
resultado 40: 


28 
79 
40 


e El programa anterior se puede modificar a efectos de abreviar pasos y de con- 
seguir mayor claridad en la introducción de los datos. 


10 INPUT “INTRODUCE B Y H”; B, H 
20 LETS=B*H 

30 PRINTS 

40 END 


Al teclear RUN y | ENTER], aparece en la pantalla lo siguiente: 


INTRODUCE B Y H? 
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Esta frase nos indica explícitamente que introduzcamos los datos correspondientes 


a las variables B y H. Si tecleamos 8 (y | ENTER|) y, a continuación, 5 (y | ENTER |), 
aparecerá en la pantalla el resultado 40. 


Vemos que una instrucción INPUT permite introducir un texto entrecomillado y 
varias variables separadas por comas. El texto y las variables se separarán normal- 
mente por un punto y coma. 


2. La instrucción REM 


El siguiente programa calcula el área de un triángulo e imprime el resultado. 


(Área del triángulo = > x base X altura.) 


10 INPUT “INTRODUCE B Y H”; B, H 
20 LETS=1/2*Bx*H 

30 PRINTS 

40 END 


A MX 


Tecleando RUN y pulsando la tecla | ENTER| el programa se empieza a ejecutar. Si 
introducimos primero el valor 10 y, a continuación, el 4, aparece impreso en la 
pantalla el valor del área, igual a 20. 


Ahora ejecutaremos el programa anterior al que se ha añadido la instrucción 5. 


REM AREA DE UN TRIANGULO 
INPUT “INTRODUCE B Y H”; B, H 
LETS =1/2*B*H 

PRINTS 

END 
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Introduciendo los mismos valores, 10 y 4, aparece el mismo resultado en la panta- 
lla. 

La instrucción 5 no introduce ninguna modificación en la ejecución del pro- 
grama. 

La instrucción REM únicamente sirve para poner título a un programa o a 
una parte del mismo. Sin embargo, aunque no es una instrucción ejecutable, 
hay que tener en cuenta que sí ocupa posiciones de memoria. 


Ejercicios 


3.1. Escribe un programa que calcule el cubo de un número e imprima el resultado. 
Utiliza la instrucción REM para dar título al programa. 


3.2. Escribe un programa que calcule la longitud de la circunferencia (L = 2 x3,1416 
R) y el área del cuadrado (S = |?), utilizando dos veces la instrucción REM, e im- 
prime los resultados. 


3. La instrucción PRINT 


El siguiente programa calcula la longitud de la circunferencia e imprime el resul- 
tado. 


INPUT “INTRODUCE R”; R 
LETL=2+*3,1416* R 
PRINT L 

END 


Sin alterar esencialmente este programa, se le puede modificar para que los resul- 
tados que se impriman en la pantalla aparezcan con mayor claridad. 


REM LONGITUD DE LA CIRCUNFERENCIA 
INPUT “INTRODUCE R”; R 

PRINT R; “METROS” 
LETL=2%*3.1416*R 


PRINT “LA LONGITUD ES”; L; “METROS” 
END 
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Al teclear RUN (y | ENTER|) e introduciendo el valor 10 para R, se obtiene lo si- 
guiente en la pantalla: 


Analicemos las líneas siguientes a la instrucción RUN, que corresponden a la parte 
de los resultados impresos: 


INTRODUCE R ? <— Corresponde a la línea 10 
10 METROS — Corresponde a la línea 15 
LA LONGITUD ES 62.832 METROS .= Corresponde a la línea 30 


Observamos que la instrucción PRINT imprime en la pantalla: 

— Un texto entrecomillado pero sin las comillas (instrucciones 15 y 30). 
— El valor de una variable pero no su nombre (instrucciones 15 y 30). 
Para fijar ideas veamos más en detalle la instrucción 30 


30 PRINT “LA LONGITUD ES”; L; “METROS” 
Imprime este Imprime Imprime este 
texto sin el valor texto sin 
comillas. de L. comillas. 


El resultado de esta instrucción es, por tanto, el siguiente: LA LONGITUD ES 
62.832 METROS 


Ejercicios 


3.3. Escribe lo que aparecerá impreso en la pantalla al ejecutarse los siguientes pro- 


gramas: 

a) 10 LETX=3.25  b) 10 LETX=3.25 «) 10 LET X= 3.25 
20 PRINT “Xx” 20 PRINT X 20 PRINT “X="; X 
30 END 30 END 30 END 
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3.4. Escribe lo que imprimiría en la pantalla la instrucción 40 una vez ejecutada: 


10 LETA=3 
20 LETB=4 

30 LETC=A12+Bf2 

40 PRINT “LA SUMA DE LOS CUADRADOS DE LOS NUMEROS A Y B ES 


3.5. Escribe un programa que calcule el producto de un número X por 5, almacene 
el resultado en P e imprima en una línea: 


EL NÚMERO ES X = (valor de X) 
y en otra línea: 
EL PRODUCTO P = (valor de P). 


3.6. Elabora un programa que calcule el área del círculo (S = 3,1416 R?) utili- 
zando instrucciones PRINT para presentar con claridad el resultado en la pan- 
talla. 


4. El punto y coma y la coma en la instrucción PRINT 
e El número de caracteres que se puede escribir en una línea de la pantalla de 


un microordenador es limitado. La pantalla, además, puede estar dividida en 
dos O más zonas. 


Pantalla dividida en dos zonas. Pantalla dividida en cuatro zonas. 


e En los ejemplos siguientes supondremos que la pantalla tiene capacidad para 
imprimir 32 caracteres por línea (de O a 31) y está dividida en dos zonas de 16 
caracteres cada una por línea (de O a 15 y de 16 a 31). 


01234567 8 910111213141516171819202122232425262728293031 
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e Si en una instrucción PRINT los textos y las variables están separados por 
puntos y comas, el microordenador interpreta que no tiene que dejar ningún 
espacio entre los textos y el valor de las variables. Si, en cambio, están sepa- 
rados por una coma, los imprime en zonas diferentes. Por ejemplo, supon- 
gamos que ejecutamos el siguiente programa para N = 25. 


REM CUADRADO Y RAIZ 
INPUT “INTRODUCE”; N 

LETC=N 12 (*) 
LET R = SQR (N) 

PRINT “CUADRADO: "; C, “RAIZ:"; R 


Después de teclear RUN (y | ENTER) y de introducir el valor 25, los textos y los 
números aparecerán distribuidos así en la pantalla: 


CUADRADO: 625 RAIZ: 5 


e Si al final de una instrucción PRINT no se pone punto y coma ni coma, el 
texto o los valores de las variables del siguiente PRINT se imprimen en la línea 
siguiente. Por ejemplo, al ejecutar el siguiente programa, para N = 25. 


REM CUADRADO Y RAIZ 

INPUT “INTRODUCE N”; N 

LETC=N 12 

LET R = SQR (N) 

PRINT “EL CUADRADO DE”; N; “ES”; C 


PRINT “LA RAIZ CUADRADA DE”; N; “ES”; R 
END 


(*) La función SQR (N) calcula la raíz cuadrada del número N. 
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se obtiene este resultado en la pantalla 


EL CUADRADO DE 25 ES 625 
LA RAIZ CUADRADA DE 25 ES 5 


e Una instrucción PRINT que no lleve incorporada ninguna expresión produce el 
efecto de dejar una línea en blanco. Por ejemplo, si en el programa anterior 
añadimos la instrucción 45 PRINT 


REM CUADRADO Y RAIZ 

INPUT “INTRODUCE N”; N 

LETC=N Y 2 

LET R = SQR (N) 

PRINT “EL CUADRADO DE"; N; “ES”; C 
PRINT 

PRINT “LA RAIZ CUADRADA DE”; N; “ES”; R 
END 


y la ejecutamos para N = 25, se obtiene el siguiente resultado en la pantalla: 


EL CUADRADO DE 25 ES 625 Línea en blanco debida a la 
LA RAIZ CUADRADA DE 25 ES 5 A 
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En algunos microordenadores se puede sustituir la palabra PRINT por un signo 
de interrogación, lo que contribuye a abreviar la escritura. Así, 


30 PRINTA, B 
se puede escribir de la siguiente forma: 
30 ?A,B 


5. El microordenador como calculadora 


La instrucción PRINT permite también realizar cálculos directamente, sin necesi- 
dad de elaborar un programa para ello. Así, escribiendo 


PRINT 13 1) 2 

y accionando la tecla RETURN, se obtiene inmediatamente en pantalla el cua- 
drado de 13, es decir, 

169 

Vemos que el microordenador, utilizando la instrucción PRINT, actúa como calcu- 


ladora, y para estos efectos no es necesario escribir delante de PRINT ningún nú- 
mero. - 


6. Cómo escribe los números el microordenador 


e Tecleamos las siguientes instrucciones PRINT: 


PRINT 38, -205 

PRINT -5.28, 0.0024 

PRINT “DISTANCIA TIERRA-SOL ="; 149600000000; "M” 
PRINT “LA VELOCIDAD DEL CARACOL ES:” 

PRINT 0.000012; “KM/S” 
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Al ejecutar estas instrucciones, tecleando RUN (y | ENTER]|), se obtienen los si- 
guientes resultados en la pantalla: 


38 -205 Corresponde a la línea 10 
5.28 0.0024 Corresponde a la línea 20 
DISTANCIA TIERRA-SOL = 1.496 E + 11 M Corresponde a la línea 30 
LA VELOCIDAD DEL CARACOL ES: Corresponde a la línea 40 
1.2 E-5 KM/S Corresponde a la línea 50 


— Los números que corresponden a la línea 10 no tienen punto decimal. Se 
dice que están escritos en notación entera. 


— Los números que corresponden a la línea 20 tienen punto decimal. Se dice 
que están escritos en notación real. 


— Los números que corresponden a las líneas 30 y 40 el microordenador los 
ha transformado a notación exponencial. 


149600000000 = 1.496 E + 11 


La notación exponencial es similar a la notación científica. 


¿Cómo escribiremos el número 4800000000 en notación científica y exponen- 
cial? 


4800000000 = 48 x 10*? =48E+09 
¿Y el número 0,000000000014? 
0,000000000014 = 1.4 x 101? =1.4E — 12 


Vemos que la notación exponencial se obtiene de la científica, sustituyendo x 
10 elevado a, por E. 


La notación exponencial se compone de tres partes: un número escrito en 
notación entera o real, la E, que significa x 10 elevado a, y el exponente 
de 10 con su signo. Observemos estas tres partes en el número 


=5.870 E = 11 
que equivale a -5.876 x 10**, o sea, a 
— 0.00000000005876 
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e ¿Por qué el ordenador emplea esta notación? Porque normalmente tiene capa- 
cidad para escribir números hasta con nueve cifras, un punto decimal y un 
signo (+ ó —). Si un número contiene más de nueve dígitos, automáticamente 
lo transforma en notación exponencial. 


7. Resumen de las instrucciones estudiadas en este capítulo 


e INPUT 
— Significado: introduce. 


— Formatos: 
n INPUT (texto entrecomillado); (nombre de variables) 
n es el número de instrucción. 
(Las llaves no se escriben. Ejemplo: se escribe: 10 INPUT “RAIZ”; R, no 
10 INPUT (“RAIZ”); INPUT (R) 

— Función: permite introducir datos desde el teclado, los cuales se asignan a 
las variables. 


e REM 
— Significado: remarca. 
— Formato: n REM (lista de caracteres) 


— Función: permite añadir aclaraciones o comentarios en un programa sin 
afectar su ejecución. 


e PRINT 
— Significado: imprime. 


— Formato: nombre de variables 
n PRINT ¿ expresiones aritméticas 
texto entre comillas 


— Función: 
Escribe el valor de las variables. 
Escribe el resultado de las expresiones aritméticas. 
Escribe el texto que está entre comillas, pero no éstas. 
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mw EJERCICIOS RESUELTOS reos 


1. Escribir un programa que calcule el valor numérico del polinomio 
1 z 

P(X) = 0,5 (6 X — Y + X?: 6, 25 — (X? + 1)”, para un determi- 
nado valor de X, e imprima en la pantalla el valor de X y P(X) en la 
siguiente forma: 

01234567 8 910111213141516171819202122232425262728293031 

Xx Pl([x!) 

(Valor de X) (Valor de P (X) 


Solución: 


5 REM VALOR NUMERICO DE UN POLINOMIO 
10 INPUT “INTRODUCE X”; X 
20 LETP=05*(6*X-—1/4) 1 24+X 7 3/625-(X ] 2+1) 15 
30 PRINT “X”, “P(X)" 
40 PRINTX,P 
50 END 


2. Escribir un programa que imprima el día, el mes y el año de naci- 
miento de una determinada persona y presente estos datos en la 
pantalla de la siguiente forma: 


01234567809 10111213141516171819202122232425262728293031 
FJE¡C|H|A| [DJE| [NPJA[C|1]M|IjE¡N|ÍT|O 


D|Í|A MIES A|Ñ|O 
(el día) (el mes) (el año) 


LH HH! En 


Solución: 


5 REM FECHA DE NACIMIENTO 
10 INPUT “DIA, MES, AÑO”; D, M,A 
20 PRINT” ——_— FECHA DE NACIMIENTO” 


6 espacios 
30 PRINT ” DIA MES AÑO” 
6 espacios 5 espacios 5 espacios 
40 PRINT ” de E ld ME > MA 
6 espacios 4 espacios 4 espacios 


50 END 
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Para conseguir que el microordenador deje espacios en blanco se 
abren comillas, se acciona el espaciador del teclado tantas veces 
como blancos se quieren incluir y, finalmente, se cierran comillas. 


ma EJERCICIOS DE RECAPITULACIÓN m==oomssaaaas 


3.1. ¿Cómo aparecerán escritos los números 5 y 37 al ejecutarse los siguientes 


programas? 
a) 10 PRINT 5, 37 b)10PRINT 5; 37  c)10PRINT 5 d) 10 PRINT 5 
20 END 20 END 20 PRINT 37 20 PRINT 
30 END 30 PRINT 
40 PRINT 37 
50 END 


3.2. Escribe en un papel lo que aparecerá en la pantalla al ejecutarse el si- 
guiente programa. (Suponte que se introduce 14.35 para H y 25 para R.) 


5 REM LLEGADA DE TRENES 
10 INPUT H 
20 INPUT R 
30 PRINT ” AVISO" 
13 espacios 
40 PRINT 
50 PRINT “HORA DE LLEGADA”, “RETRASO” 
60 PRINTH, R; “MIN” 
70 END 


3.3. Escribe un programa que haga la conversión de dólares a pesetas y escriba 
en la pantalla lo siguiente: 


012345678 910111213141516171819202122232425262728293031 
clo|N|v|e[R|s|IfólN| |D|E| [olólLla[r|els| [al [PJelsjelTials 


DJÓ|L|A[R|E[S| | PIE|S|E|T|A|S 


(Número de dólares) (Número de pesetas) 


3.4. Averigua la cotización del día y escribe un programa que convierta pesetas 
a francos belgas. Incluye en el programa instrucciones PRINT que presenten 
los resultados en la pantalla en forma similar a la presentada en el ejercicio 
anterior. 
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3.5. Las fórmulas del área y del volumen de la esfera son S = 4 7 R? y V = E 3 


rr R?, respectivamente. Elabora un programa que introduzca el valor del ra- 
dio R, calcule S y V, y presente los resultados así: 
012345678 910111213141516171819202122232425262728293031 


R|=| (Valor del radio) 


(Una línea en blanco) 


S|=| (Valor del área) | =| (Valor del volumen) 
EA APA 

3.6. Dibuja en un papel la figura que hace aparecer en la pantalla el siguiente 
programa: 


5 REM DIBUJO DE FIGURAS 

0 ¡PRINTS => a 
10 espacios 

20 PRINT "<=. | A 
10 espacios 

30: PRINT*-—.= | a 
10 espacios 

40. PRINT*<—. == | N 
10 espacios 

50: PRINT*<—..—= | pe 
10 espacios 


60. PRINT*._——.—- ' 


10 espacios 


70 END 


3.7. Haz un programa que dibuje en la pantalla la siguiente figura, incluidos los 
números que expresan la medida de los lados. 


14 


3.8. Realiza un programa que dibuje en la pantalla el encabezamiento de la si- 
guiente tabla estadística; en la que aparezcan la variable X, la frecuencia F 
y la frecuencia acumulada, FA. 


XK F FA 


3.9. La fórmula que calcula el interés simple | en función del capital C, el rédito 
R y el tiempo T, expresado en años, es: 

(e 

100 
Escribe un programa que calcule el interés y presente los datos y resultados 
en la pantalla así: 

012345678910111213141516171819202122232425262728293031 


=| (Valor de C) |R|=| (Valor de R) |T|=|(Valor de T) |I|=|(Valor de I) 


3.10. La fórmula que transforma grados centígrados a grados Fahrenheit es 
A 
F= 5 C +32 
Realiza un programa que haga la conversión de grados centígrados a Fah- 
renheit y presente en la pantalla el dato y resultado así: 


GRADOS CENT. GRADOS FAHR. 
(Una línea en blanco) 
(Valor de gr. cent.) (Valor de gr. Fahr.) 


3.11. Las fórmulas de la altura descendida y de la velocidad alcanzada por un 
móvil que cae libremente en el vacío son: 


jas > ge y v=gl 
donde h es la altura descendida, g la aceleración de la gravedad (9,8 => 
S 


y t el tiempo. Escribe un programa que calcule la altura descendida y la ve- 
locidad alcanzada para un tiempo t. Escribe instrucciones PRINT para pre- 
sentar con claridad los datos y resultados en la pantalla. 


3.12.. Recuerda la ley de Ohm que relaciona la resistencia R de un conductor, la 
caída de potencial V que se produce entre los extremos de la resistencia al 
pasar la intensidad | por la misma: 

o fl 
le IA 
Haz un programa que calcule la intensidad | en función de R y V y presente 
los datos y resultados de la siguiente forma: 


RESISTENCIA, R = (valor de R). 
CAÍDA DE TENS, V = (valor de V). 
INTENSIDAD, | = (valor de |). 
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4. Saltos incondicionales 
e instrucciones condicionales 


1. Una instrucción con la que se puede escribir infinitas 
veces una frase: GOTO 


En todos los programas que hemos visto hasta ahora, las instrucciones se ejecutan 
secuencialmente, es decir, siguiendo el orden creciente de sus números. Sin em- 
bargo, a veces es necesario que la ejecución no se ajuste a esa secuencia, sino 
que salte de una instrucción a otra anterior o posterior. Esto es lo que ocurre en 
el programa siguiente: 


5 REM SALTO INCONDICIONAL 
10 PRINT “SOY EL MICRO: MI MISION ES OBEDECER” 
20 GOTO 10 
30 END 


Si ejecutamos este programa (teclear RUN y | ENTER |), obtendremos en la pantalla 
lo siguiente: 
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Vemos que la frase “SOY EL MICRO: MI MISIÓN ES OBEDECER” se repite en la 
pantalla una y otra vez, no terminándose nunca la ejecución de este programa. 


Estudiémoslo con más detalle: 

— La instrucción 10 escribe la frase. 

— La instrucción 20 GOTO 10 hace saltar al microordenador a la instrucción 10, 
el cual escribe otra vez la frase, y así sucesivamente, obligando al microorde- 


nador a escribir dicha frase un número infinito de veces. 


— La instrucción 30 END no se ejecuta nunca. 


2. Un programa que sirve para contar 


En el programa que transcribimos a continuación se ha introducido la variable C, 
que cuenta el número de veces que el microordenador escribe la frase: “ESTOY 
DE BUEN HUMOR”: 


REM CONTADOR 

LETC=0 

LETC=C+1 

PRINT C; “ESTOY DE BUEN HUMOR” 
GOTO 20 

END 


(*) Para «poner a cero» una variable, algunos microordenadores no exigen que se haga explícita- 
mente mediante una instrucción, como la 10; la «ponen a cero» directamente, cuando es 
leída en una instrucción, como la 20. 


49 


Al ejecutar este programa (RUN | ENTER ) obtenemos el siguiente resultado en la 
pantalla: 


¿Cómo funciona este programa? 


— La instrucción 10 define la variable C y almacena en ella el valor cero. 


— La instrucción 20 LET C = C + 1 suma 1 al valor que tiene en este instante la 
variable C, y almacena en C el resultado de la suma. 


— La instrucción 30 imprime el valor de C y la frase “ESTOY DE BUEN HUMOR”. 


—= La instrucción 40 GOTO 20 (ir a 20) transfiere el control a 20, y a partir de 
aquí empieza a repetirse otra vez el proceso. 


— La instrucción 50 END nunca se ejecuta, y por eso la ejecución de este pro- 
grama no termina nunca. 


La instrucción 
20 LETC=C+1 
actúa como contador porque cada vez que se ejecuta incrementa en una unidad 


el valor de la variable C. Por ejemplo, si en este instante el valor almacenado en C 
es 0, va almacenando valores consecutivos en las sucesivas ejecuciones: 


E 
1. ejecución: C=0+1=1 
2.* ejecución: C=1+1=2 
3.* ejecución: C =2+1=3 
4.* ejecución: C=3+1=4 


Ejercicios 


4.1, 


4.2. 


4.3. 


4.4, 
4.5. 


4.6. 


Escribe en un papel lo que escribiría el gu en la pantalla al ejecu- 
tarse este programa: 


10 LETA=0 

20 PRINT “YA ESTA BIEN DE REPETICIONES!” 
30 LETA=A+1 

40 PRINTA 

50 PRINT 

60 GOTO 20 

70 END 


Indica qué instrucciones nunca se ejecutan en el siguiente programa: 


10 LETA=5.1 

20 LETB=8,9 e 2d 

30 LETS=A+B lO ESA OREA GMANOS 
40 GOTO 70 Os ra? 

50 LETP=Ax*B a o 

60 PRINTP. 7 da Ad: 


Elabora un programa que escriba un número ilimitado de veces la frase ESTOY 
PROGRAMANDO CON LA INSTRUCCIÓN GOTO e imprime el JUE de veces 
que lo escribe. MEL TN? 


Haz un programa que escriba todos los números naturales. -7 Es oro 20 


Escribe en un papel lo que aparecería en la pantalla si se ejecu 
programa: 


10 LETC=0 

20 PRINTC 

30 PRINT 

40 LETC=C+2 
50 GOTO 20 

60 END 


Elabora un programa que imprima los sucesivos números impares en filas. 


y ¡END- 
ara el siguiente 


3. Una instrucción que toma decisiones: IF...THEN 


Nos dan un número N mayor que 3 y nos piden que calculemos y escribamos 
todos los múltiplos de 3 menores que N. 


Este trabajo lo puede realizar muy rápidamente el microordenador aunque N sea 
muy grande. 
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». o.» 


Para elaborar el programa tendremos que seguir este razonamiento lógico: 


10 Introducir N 

20 Hacer M = 3 

30 Escribir M 

40 Buscar el siguiente múltiplo (M = M + 3) 
50 Si M es menor que N entonces ir a 30 

60 Fin 


Aquí la instrucción importante es la 50, que obliga a repetir las instrucciones 30 y 40 
siempre que M < N, y, en caso contrario, a ejecutar la siguiente, es decir, la 60. 


El programa en BASIC es: 


REM MULTIPLOS DE TRES 
PRINT “INTRODUCE N” 
INPUT N 

LETM =3 

PRINT M; 2”; 


LETM=M+43 
IF M < N THEN GOTO 30 
END 


Si ejecutamos este programa (RUN |ENTER|) e introducimos, por ejemplo, el va- 
ip N, obtendremos el siguiente resultado en la pantalla: 


¿Cómo funciona este programa? 


— La instrucción 5 escribe en la pantalla: INTRODUCE N. 
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— La instrucción 10 interrumpe la ejecución en espera de que introduzcamos por 
el teclado el valor de N. 


— La instrucción 20 asigna a la variable M el valor 3. 


— La instrucción 30 imprime el valor de la variable M seguido de una coma para 
ir separando los distintos números. 


— La instrucción 


50 IF M < N THEN GOTO 30 (SiM<N, entonces ir a 30) (*) 
es la que compara M con N y toma la decisión; hace lo siguiente 


e Si se cumple la condición M < N entonces la ejecución continúa en 
la instrucción 30 (“salta” a 30). 


e Sino se cumple la condición M < N entonces la ejecución continúa 
en la instrucción siguiente, es decir, en la 60. 


— Cuando M no es menor que ÑN se ejecuta la instrucción 60, dándose por ter- 
minada la ejecución del programa. 


Vamos a analizar con más detalle el funcionamiento de la instrucción IF...THEN, 
suponiendo que N = 11. 


1.* ejecución: 

— Se introduce 11. 

— Se hace M = 3. 

— Se imprime 3. 

— SehaeM=M+3=3+3=6. 

— Se hace la comparación: “Si 6 < 11 entonces ir a 30”. 


2.* ejecución 

— Se imprime 6. 

— SehaceM=M+3=6+3=09,. 

— Se hace la comparación: “Si 9 < 11 entonces ir a 30”. 
3.* ejecución: 

— Se imprime 9. 


— SehaceM=M+3=9+3=12. 
— Se hace la comparación: “Si 12 < 11 entonces ir a 30”. 


Como 12 no es menor que 11, entonces no salta a 30, sino que pasa a ejecu- 
tar la instrucción siguiente, o sea, la 60, dando por finalizada la ejecución del 
programa. 


(*) En algunos microordenadores esta instrucción se puede escribir directamente sin el GOTO. Por 
ejemplo, la instrucción 50 se escribirá así: 50 IF M < N THEN 30. 
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Resumiendo: 


e En este apartado hemos visto que la instrucción IF...THEN ocasiona saltos en 
un programa siempre que se cumpla una determinada condición. Produce 


saltos condicionales. 


e En los apartados anteriores hemos visto que la instrucción GOTO ocasiona 
Saltos sin estar sujeta a que se cumpla una determinada condición. Produce 


saltos incondicionales. 


Ejercicios 


4.7. Escribe en un papel lo que aparecerá en la pantalla al ejecutarse el siguiente 


programa, para N = 8. 


10 
20 
30 
40 
50 
60 


4.8. Escribe un programa que calcule e imprima los múltiplos de 5 hasta un cierto 


INPUT N 

LETA=0 

PRINTA; ”,”; 
LETA=A+1 

IFA < N THEN GOTO 30 
END 


número. 


4.9. Escribe un programa que calcule e imprima los números pares naturales hasta 


un cierto número. 
4.10. Indica qué hace el siguiente programa: 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 


4.11. Haz un programa que calcule e imprima primero los múltiplos de 19 menores 


INPUT N 

LETA=0 
LETA=A+?7 

PRINT A; “,”; 

IFA < N THEN GOTO 30 
PRINT 

PRINT 

LETB=0 

LETB=B+ 11 

PRINT B; *,”; 


IF B < N THEN GOTO 90 
END 


que 216 y después los de 23. 


4.12. Elabora un programa que introduzca mediante INPUT una variable, de tal ma- 
nera que, si ésta tiene un valor mayor que cero, el programa vuelve a pedir un 
nuevo valor y, en caso contrario, termine la ejecución. 
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4. Instrucción IF...THEN... generalizada 


e Hasta ahora, a continuación de la palabra THEN en la instrucción IF...THEN ..., 
hemos puesto la instrucción GOTO. Sin embargo, también admite otras ins- 
trucciones como muestra el ejemplo que sigue. 


35 IF X > 0 THEN PRINT X 


Esta instrucción ordena que sí se cumple la condición X > 0 entonces se ¡m- 
prima el valor de X. 


Incluso, admite varias instrucciones, las cuales deberán estar separadas por dos 
puntos. Ejemplo: 


IFZ <= X THEN LET Z = Z + 1: PRINT Z : GOTO 20 


En el siguiente programa, que va escribiendo el menor de los números introdu- 
cidos hasta el momento, se ve la utilidad de la instrucción IF...THEN... generali- 
zada. 


INPUT M 

PRINT “EL MENOR ES:”; M 

INPUT X 

IF X < M THEN LET M = X: GOTO 20 
GOTO 20 


END 


Al teclear RUN (y [ ENTER |) comienza la ejecución del programa. 


— La instrucción 10 pide un valor para M; este valor, la instrucción 20 lo im- 
primirá en la pantalla por ser el único introducido hasta el momento. 


— La instrucción 30 pide otro valor para X. 


— La instrucción 40 compara el valor de X con el menor M, y si X < M en- 
tonces se ejecutan las instrucciones LET M = X (el menor es ahora X) y 
GOTO 20, que envía el control de la ejecución a la instrucción 20. Si no se 
cumple la condición X < M, se ejecuta la instrucción siguiente, 50 GOTO 
20, que envía el control a 20. 
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Si introducimos sucesivamente los valores 24, 13, 50, —10 y 31, en la pantalla 
aparecerá lo siguiente: 


EL MENOR ES 24 
Et MENOR ES 13 
EL'MENOR ES 13 
EL MENOR ES -10 
EL MENOR ES -10 


e Existen microordenadores que admiten una variante en la instrucción IF... 
THEN...; es la siguiente: 


IF condición THEN instrucciones 1 ELSE instrucciones 2 


Su significado es: 
SI se cumple la condición, ENTONCES ejecutar las instrucciones 1 y 
SI NO se cumple, ejecutar las instrucciones 2. 

Ejemplo: 
230 IFX< Y THEN LET X = X + 1 ELSE LETY =Y +1 


5. Instrucción compuesta 


Como se ha visto en el apartado anterior, en una misma línea se pueden poner 
varias instrucciones, siempre que vayan separadas por dos puntos. 


Ejemplo: 
1OLETX=0:LETY=3:LETA=7 


Un conjunto de instrucciones escritas en una misma línea (separadas por dos 
puntos) se llama instrucción compuesta. 


Si bien en algunas ocasiones conviene escribir instrucciones compuestas para 
abreviar la escritura de los programas, en algunos casos pueden llegar a perder 
claridad. 
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6. Un programa que cuenta el número de alumnos que miden 
entre 1,60 y 1,70 


El programa siguiente cuenta el número de alumnos cuya estatura está compren- 
dida entre 1,60 y 1,70. 


El programa que realice este trabajo necesitará utilizar una instrucción condicional 
IF... THEN, de tal manera que si se cumple la condición aumente en una unidad un 
contador, cuyo valor se imprimirá posteriormente. 


REM RECUENTO DE ALUMNOS ENTRE 1.60 Y 1.70 

LETS = -1 

LETS =5:4+ 1 

PRINT “EL NUMERO TOTAL HASTA ESTE MOMENTO ES: S ="; S 
PRINT “INTRODUCE LA TALLA” 

INPUT X 

IFX > 1.60 AND X < 1.70 THEN GOTO 20 

GOTO 40 

END 


¿Cómo funciona este programa? 
Después de teclear RUN y pulsar la tecla | ENTER| el programa inicia la ejecución: 
— La instrucción 10 define la variable S y la asigna el valor —1. 


— La instrucción 20 LET $ = $ + 1 suma 1 al valor que tiene en este instante y 
almacena en S el resultado de la suma: almacena el valor -1 + 1 = 0, o sea, 
pone a cero el contador. 

— La instrucción 30 imprime: EL NUMERO TOTAL HASTA ESTE MOMENTO ES 
s=0. 


— La instrucción 40 imprime: INTRODUCE LA TALLA. 


— La instrucción 50 interrumpe la ejecución en espera de que se introduzca por 
teclado la talla de un alumno. 


57 


— La instrucción 
60 IF X > 1.60 AND X < 1.70 THEN GOTO 20 
(Si X > 1.60 y X< 1.70 entonces ir a 20) 


es la que compara X con 1.60 y 1.70 y toma la decisión: sí se cumplen las dos 
condiciones simultáneamente la ejecución continúa en la instrucción 20 y, en 
caso contrario, continúa en la siguiente instrucción, es decir, en la 70. 
Por ejemplo, supongamos que se ha introducido el dato 1.67 (X = 1.67); 
como X > 1.60 y X < 1.70, la ejecución sigue en la 20, incrementándose en 
1 el contador. Pero si en cambio, el dato es 1.78 (X = 1.78); como X 4 1.70, 
la ejecución continúa en 70. 


— La instrucción 70 GOTO 40 hace saltar la ejecución a la instrucción 40 no in- 
crementándose en este caso el contador. 


— En este programa no llega a ejecutarse la instrucción 80 END. 


7. Relaciones aritméticas y lógicas 


e Observamos la instrucción 60 del programa anterior: 


60 IF X > 1.60 AND X < 1.70 THEN GOTO 20 


AA 
Relación Relación 
aritmética aritmética 


OÓAÓAÁKX A 534 III KXKÉKÉKÉ—S 
Relación lógica 
Esta instrucción contiene dos relaciones aritméticas (X > 1.60, X < 1.70) en 
las que encontramos los operadores aritméticos > (es mayor que) y < (es me- 
nor que), respectivamente. Estas dos relaciones aritméticas están a su vez vin- 
culadas mediante el operador lógico AND (y), constituyendo en conjunto una 
relación lógica. 
¿Operadores aritméticos 
Xx>160 AND  X<1.70 
bo 
Operador 
lógico 
Vemos, pues, que los operadores aritméticos vinculan números o expresiones 
aritméticas y el operador lógico, relaciones aritméticas. 


Además de los operadores vistos en este ejemplo, existen otros que se utilizan 
frecuentemente en la instrucción IF...THEN. Los transcribimos a continuación: 
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RELACIONES ARTIMÉTICAS 


A es menor que B 

A es menor o igual que B 
A es mayor que B 

A es mayor o igual que B 
A es igual a B 

A no es igual a B 


P y Q (se verifica la relación P y Q) 
P o Q (se verifica la relación P o Q) 
no P (no se verifica la relación P) 


P y Q son relaciones aritméticas. 
e Asu vez, las relaciones lógicas se pueden combinar entre sí, por ejemplo: 


(A<BANDC>A)ORC =A 
X= 3 AND (Y = 2 0RZ=X) 


Ejercicios 


4.13. Explica lo que hace este programa: 


10 INPUTA 

20 IFA< 10 AND A > 5 THEN GOTO 50 
30 PRINT “NO SE CUMPLE” 

40 GOTO 60 

50 PRINT “SI SE CUMPLE” 

60 END 


4.14. Escribe un programa que introduzca un número y que imprima el signo + si 
este número es positivo y el signo — si es negativo. 


4.15. Explica cada una de las instrucciones del programa siguiente: 


10 LETC=-1 

20. LEN C=C++1 

30 PRINT C 

40 PRINT “INTRODUCE EL PESO” 

50 INPUT X 

60 IF X > 50 AND X < 60 THEN GOTO 20 
70 GOTO 40 

80 END 


4.16. Escribe un programa que calcule el número de alumnos cuyo peso sea mayor 
que 60 kilos y su estatura inferior a 1.65 metros. 
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4.17. Elaborar un programa que dé los múltiplos comunes de 3 y 7 hasta un cierto 
número. 


8. Un programa para calcular la media aritmética 


El siguiente programa calcula el valor medio o la media aritmética de una serie de 
datos que se introduce por el teclado del microordenador. 


En este programa se utiliza una instrucción IF ... THEN como indicador, para con- 
cluir el proceso de introducción de datos. 


5 REM CALCULO DE LA MEDIA ARITMETICA 
10LETT=0:LETN=0 
20 INPUT “INTRODUCE LOS DATOS. DESPUES DEL ULTIMO, TECLEA —1 ”; 
X 
30 IF X = —1 THEN GOTO 70 
40LETT=T+X 
SOLETN=N + 1 
60 GOTO 20 
70 PRINT “EL NUMERO DE DATOS ES: "; N 
80 PRINT “LA MEDIA ARITMÉTICA ES: ”; T/N 
90 END 


Si al ejecutar el programa (RUN [ENTER|) introducimos los datos 8, 7, 5 y 4 (y, 
a continuación, — 1) en la pantalla aparecerá lo que muestra la fotografía: 
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Analicemos cómo funciona este programa 


— La instrucción 10 define las variables T (suma total) y N (número de datos), a 
los que asigna el valor cero. 


— La instrucción 20 imprime la frase que está entre comillas y detiene la ejecu- 
ción del programa en espera de que se introduzca un dato. 

— La instrucción 
30 IF X = —1 THEN GOTO 70 
actúa de indicador: verifica si X = —1 y, en caso afirmativo, hace saltar la eje- 
cución a la instrucción 70. Si X 4 —1, se ejecuta la instrucción siguiente, la 
40. 

— La instrucción 40 va sumando los datos que se introducen. 

— La instrucción 50 es un contador del número de datos que se van introdu- 
ciendo. 

— La instrucción 60 produce un salto incondicional a la instrucción 20, para 
pedir un nuevo dato. 

— La instrucción 70 escribe en la pantalla: EL NÚMERO DE DATOS ES: 4 (en el 
ejemplo elegido). 

— La instrucción 80 escribe en la pantalla: LA MEDIA ARITMÉTICA ES: 6 (en el 
ejemplo elegido). 

— Finalmente, la instrucción 90 da por terminada la ejecución del programa. 


9. Una instrucción para detener la ejecución de 
un programa: instrucción STOP 


Vamos a analizar el siguiente programa: 


5 REM NOTAS 
10 INPUT “INTRODUCE UNA NOTA”; N 
20 IF N > = 5 THEN GOTO 50 
30 PRINT “SUSPENSO” 
40 GOTO 10 


50 STOP 
60 PRINT “APROBADO” 
70 END 
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e Si ejecutamos este programa (RUN | ENTER |) e introducimos para N el valor 3, 
la instrucción 20 compara 3 con 5, y como 3 no es mayor o igual que 5, sigue 
la ejecución en 30, imprimiéndose en la pantalla la palabra SUSPENSO. Sigue el 
proceso con la instrucción 40 que hace saltar la ejecución a la 10, la cual pide 
otra nota. 


e Si ejecutamos este programa introduciendo para N la nota 7, por cumplirse la 
condición 7 > = 5, la instrucción 20 hace saltar la ejecución a la instrucción 
50 STOP que interrumpe la ejecución justo en este punto, no imprimiéndose la 
palabra APROBADO. 

e Una vez interrumpida la ejecución por la acción de una instrucción STOP, se 
puede continuar dicha ejecución en el momento que se desee tecleando la ins- 
trucción CONT (continuar) y pulsando la tecla | ENTER]. En este ejemplo, como 
la ejecución está detenida en la línea 50, si se teclea 


CONT (y [ENTER|) 


la ejecución continuará con la instrucción 60, apareciendo en la pantalla la 
palabra APROBADO. La instrucción 70 dará por finalizado el proceso. 


10. Resumen de las instrucciones estudiadas en este capítulo 
e GOTO 


— Significado: ir a 

— Formato: n GOTO n' 

— Función: hace saltar la ejecución del programa a la instrucción n”; ésta 
puede ser anterior o posterior a n. 


e'1F... THEN... 


— Significado: Si ... entonces ... 

— Formato: n IF condición THEN instrucciones. 

— Función: Si se cumple la condición entonces se ejecutan las instrucciones 
que siguen a THEN; y si no se cumple, se ejecuta la instrucción escrita en 
la línea siguiente. 


e STOP 


— Significado: parada. 

— Formato: n STOP 

— Función: detiene la ejecución del programa justo en la línea en que se en- 
cuentra STOP. 
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e CONT 


— Significado: continúa. 

— Formato: CONT. 

— Función: continúa la ejecución de un programa a partir de la instrucción 
n STOP, que previamente la interrumpió. 


es EJERCICIOS RESUELTOS rr 


¡le 


Elaborar un programa que permita calcular el promedio de las notas 
de Lengua de un curso de N alumnos, las cuales se deberán introdu- 
cir a través del teclado del microordenador. 


Solución: 


5 REM PROMEDIO NOTAS DE LENGUA 

8 LETC=0:LETT=0 

10 INPUT “INTRODUCE EL NUMERO DE ALUMNOS”; N 
20 INPUT “INTRODUCE LA NOTA DE CADA ALUMNO”; X 
30 LETC=C+1 


40 LETT=T+X 

50 IFC = N THEN GOTO 70 
60 GOTO 20 

70 PRINT “PROMEDIO ="; T/N 
80 END 


Hacer un programa que averigúe si el número que se introduce está 
entre 1 y 5, de tal manera que la ejecución del mismo se detenga 
hasta que se ordene que continúe, mediante la instrucción CONT. 


Solución: 


10 INPUT “INTRODUCE UN NUMERO”; N 

20 IF1<=NAND N < = 5 THEN PRINT “EL NUMERO ESTA ENTRE 1 
y 5": GOTO 40 

30 PRINT “EL NUMERO NO ESTA ENTRE 1 y 5” 

40 STOP 

50 GOTO 10 

60 END 


Dados los tres lados de un triángulo, hacer un programa que indique 
si es isósceles, equilátero o escaleno. 
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Solución: 


1 
10 
20 
30 
40 
50 


REM TIPO DE TRIANGULO SEGUN SUS LADOS 

INPUT “LADOS”; A, B, € 

IFA = BAND A = C THEN PRINT “EQUILATERO”: GOTO 50 

IFA = BORA = COR B = C THEN PRINT “ISOSCELES”: GOTO 50 
PRINT “ESCALENO” 

END 


— o... EJERCICIOS DE RECAPITULACIÓN so 


4.1. 


4.2. 
4.3. 
4.4, 


4.5. 


¿El siguiente programa imprimirá algo en la pantalla? Da una explicación. 


10 LETR=513 
20 GOTO 40 

30 PRINTR 

40 END 


Escribe un programa que imprima, en columna, 8 veces el número 5.1. 
Modifica el programa anterior para que escriba los números en fila. 


Explica lo que hace el siguiente programa. 


10 LETC=0 

20 INPUT “INTRODUCE UN NUMERO”; N 
30 LETC=C+1 

40 IFC > N THEN GOTO 70 

50 PRINT “SIGUE” 

60 GOTO 30 

70 PRINT “TERMINA” 

80 END 


¿Qué imprimirá el siguiente programa para X = 4? ¿Y para X = 83? 
10 INPUT “INTRODUCE EL NUMERO X”; X 

20 IF X< 50 THEN GOTO 40 

30 STOP 

40 PRINT X 

50 GOTO 10 

60 END 
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4.6. 


4.7. 


4.8. 


4.9, 


4.10. 


4.11. 


4.12. 


Escribe en tu propio lenguaje las siguientes condiciones expresadas en len- 
guaje BASIC: 


a) IF X< 5 THEN GOTO 70 

b) IFA <> -1 THEN GOTO 20 

c) IFX< 20 AND X > 10 THEN GOTO 100 
d) IFX <> Y OR X = Z THEN GOTO 80 


Escribe las siguientes condiciones en lenguaje BASIC. 


a) Si el valor de X es menor o igual que cero pasa a la instrucción 30. 

b) Si el valor de B, es mayor que el valor B, pasa a la instrucción 350. 

c) Si el valor de X es mayor que Y y mayor que Z pasa a la instrucción 
500. 

d) Si el valor de X es mayor que Y o mayor que Z pasa a la instrucción 
320. 


Escribe en lenguaje BASIC: 


a) Si Z es mayor o igual que A al cuadrado, entonces pasa a la línea 150. 
b) Si 3 veces A es igual a 12 entonces pasa a la línea 80. 


Escribe en una frase lo que expresan las siguientes instrucciones: 


a) 10 IFA>B + 2 THEN GOTO 500 
20 GOTO 200 

b) 10 IFC >N THEN GOTO 205 
20 LETC=C+1 


Escribe una o más instrucciones en lenguaje BASIC que expresen lo si- 
guiente: 


a) Si X.es mayor que Y más 2 ir a la instrucción 220; en caso contrario ir 
a la instrucción 125. 

b) Sil es igual a cero ir a la instrucción 150, y si no es así aumenta el va- 
lor de J en una unidad. 


Indica cuál de las dos instrucciones es incorrecta y explica por qué. 


a) 5IFX f 2 = 100 THEN GOTO 50 
b) 30 1FX <= 50 THEN X = X + 5 


¿Qué imprimirá el siguiente programa al ser ejecutado, si se introduce 8, 7 
y 5 para la variable X? 


10 LETT=0 

20 INPUT X 

30 LETT=T+5*X 
40 PRINTT 

50 GOTO 20 

60 END 
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4.13. 


4.14, 


4.15. 


4.16. 


4.17. 


4.18. 


Añade una o más instrucciones para que la ejecución del programa ante- 
rior termine después de imprimirse T, para los mismos valores de X. 


Escribe lo que aparecería en la pantalla si se ejecutara el programa si- 
guiente para X = 5, -3, 6, 0, 8, -1. 


10 INPUT X 

20 IFX< O THEN GOTO 10 
30 PRINT X 

40 GOTO 10 

50 END 


El siguiente programa ordena los números A y B. 


10 INPUT “INTRODUCE LOS DOS NUMEROS”; A, B 
20 IFA <B THEN GOTO 50 

30 IFA > B THEN GOTO 60 

40 IFA = B THEN GOTO 70 

50 PRINT A; “ES MENOR QUE”; B 

60 PRINT A; “ES MAYOR QUE”; B 

70 PRINT A; “ES IGUAL QUE”; B 

80 GOTO 10 

90 END 


Sin embargo, al introducir, por ejemplo, los números 5 y 7 se obtiene en 
la pantalla los siguientes resultados: 


5 ES MAYOR QUE 7 
5 ES MAYOR QUE 7 
5 ES IGUALA 7 


Modifica el programa para corregir este fallo. 


Escribe un programa que lea A y B y compare ambos valores de tal ma- 
nera que si A > B entonces calcule e imprima A - B, y, en caso contrario, 
calcule e imprima B - A. 


Escribe un programa que lea dos números y los compare de tal manera 
que si el primero es mayor que el segundo, escriba su diferencia y su co- 
ciente; y en caso contrario, escriba su suma y su producto. 


Para conocer la opinión del público sobre un determinado producto se 
hace una encuesta, preguntando a un conjunto de personas sobre dicho 
producto. Las respuestas favorables se indican con 1 y las desfavorables, 
con 0. Elabora un programa que cuente las preguntas favorables y desfa- 
vorables. 
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4.19. 


4.20. 


4.21. 


4.22. 


4.23. 


4.24, 


4.25. 


4.26. 


Escribe un programa que calcule la velocidad de un movimiento uniforme- 
mente variado, si la aceleración a es positiva. (La fórmula de la velocidad en 
este movimiento es v = vy + at, donde va es la velocidad inicial, a la acele- 
ración, t el tiempo y v la velocidad final.) 


Haz un programa que calcule la media de una serie de números orde- 
nados en forma creciente, siendo el último número de la serie el 1,523. 


Explica lo que hace el siguiente programa: 


10 INPUT “NOTA”: X 

20 IFX< 5 THEN GOTO 40 
30 IFX > = 5 THEN GOTO 50 
40 PRINT “NO APROBADO” 
50 PRINT “APROBADO” 

60 GOTO 10 

70 END 


Escribe un programa que lea el salario mensual de un conjunto de per- 
sonas, y cuando encuentre un salario superior a 200 000 ptas pare la eje- 
cución, pero de tal manera que permita continuarla cuando se desee. 


Explica cómo funciona el siguiente programa y qué es lo que hace. 


10 LETX=0 

20 LETX=X+ 10 

30 IF X > 100 THEN GOTO 60 
40 PRINT X 

50 GOTO 20 

60 END 


Escribe un programa similar al anterior que imprima los múltiplos de 5 
comprendidos entre 1 535 y 1 640, excluidos estos números. 


Hacer un programa que averigúe si un número es par o impar. 


Explica cómo funciona el siguiente programa y lo que hace. 


10 LETA = 32 

20 LETA=A+3 

30 IFA< 51 AND A > 29 THEN GOTO 50 
40 STOP 

50 PRINTA 

60 GOTO 20 

70 END 


67 


4.27. 


4.28. 


4.29. 


Escribe un programa que introduzca números sucesivamente, averigue 
cuál es el mayor de los introducidos hasta el momento y dé el informe co- 
rrespondiente. 


Modifica el programa anterior de tal manera que escriba en una columna 
el número introducido y en otra, el mayor introducido hasta el momento. 
Como cabeceras de ambas columnas deberá escribir 


NÚMERO EL MAYOR 


Dados cuatro números A, B, C y D, escribir un programa que haga | = 1 
si los cuatro son iguales; | = 2 si de los cuatro, tres son iguales; | = 3 si 
dos son iguales; | = 4 si son iguales dos a dos; e | = 5 si todos son dife- 
rentes. 
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5. Datos de un programa 


Instrucciones READ y DATA 


Los programas que contienen una o varias instrucciones INPUT presentan el in- 
conveniente de que en el momento de la ejecución ésta se interrumpe para dar 
lugar a que se introduzcan los datos. 


Ahora bien, si el programa tiene que utilizar una gran cantidad de datos, el 
tiempo total de ejecución puede llegar a ser muy largo, de ahí que en muchos 
casos convenga que el mismo programa los contenga. Esto se consigue mediante 
las instrucciones READ y DATA, las cuales siempre actúan juntas, como se puede 
observar en el siguiente programa: 


READ A, B, C, D 
LETS=A+B+C+D 
PRINT “LA SUMA ES:”; S 
READ E, F 

LETP=Ex*F 


PRINT “EL PRODUCTO ES:”; P 
DATA 1, 2,3, 4 

DATA 5, 6 

END 


Las instrucciones 10 READ A, B, C, D y READ E, F leen los datos que se 
encuentran en las instrucciones 70 DATA y 80 DATA. Los valores se van 
asignando secuencialmente. 


Así, al ejecutarse este programa, a las variables A, B, C, D, E y F contenidas en las 
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instrucciones READ, se asignan estos valores: A=1,B=2,C=3,D=4,E = 
= 5 yF = 6, y en la pantalla aparece lo siguiente: 


LA SUMA ES: 10 
EL PRODUCTO ES: 30 


Observaciones relativas a READ y DATA 


— La instrucción READ manda al ordenador que lea los datos que se encuentran 
en las instrucciones DATA y que no han sido leídos todavía. 


— La instrucción DATA es un almacén de datos, los cuales serán leídos secuen- 
cialmente por instrucciones READ. 


— Las instrucciones DATA pueden estar en cualquier lugar del programa, por ser 
instrucciones no ejecutables (sólo son almacenes de datos). No obstante, con- 
viene que estén todas juntas, al principio o al final del programa. 


— En las instrucciones READ y DATA, las variables y los datos tienen que ir se- 
parados por comas. 


2. Falta de datos 


En un programa que contenga instrucciones READ y DATA puede darse el caso 
de que algunos datos se queden sin leer; este exceso de datos no ocasiona la in- 
terrupción del programa. Por el contrario, si las instrucciones READ necesitan leer 
más datos de los almacenados en las instrucciones DATA, en el momento de in- 
tentar leer un dato inexistente la ejecución se detiene, apareciendo en la pantalla 
un mensaje de error, que puede ser el siguiente: 


? OUT OF DATA ERROR IN... (Número de instrucción que da lugar al error.) 
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Consideremos el siguiente programa que calcula el cuadrado de los números na- 
turales del 1 al 9. 


READ N 

LETC=N*N 

PRINT “EL CUADRADO DE”; N; “ES”; C 
GOTO 10 

DATA 1, 2, 3,4, 5, 6, 7,8, 9 


END 


Después de teclear RUN y | ENTER], se inicia la ejecución, apareciendo 
en la pantalla el cuadrado de los números naturales del 1 al 9. Pero in- 
mediatamente la ejecución se detiene apareciendo un mensaje de error 
en la instrucción 10. 


Esta interrupción se debe a que la instrucción 40 GOTO 10 obliga al 
microordenador a ejecutar la instrucción 10 READ N un número ilimi- 
tado de veces, teniendo la instrucción 50 DATA un número limitado de 
datos. Llega entonces un momento en que después de haberse utili- 
zado todos los datos, la instrucción READ busca el siguiente, y al no 
encontrarlo (porque no existe), se detiene la ejecución. 


Si en este programa se quisiera calcular el cuadrado de más números naturales, 
por ejemplo del 10 al 15, habría que añadir la instrucción 
60 DATA 10, 11, 12, 13, 14, 15 


Ejercicios 


5.1. ¿Qué datos no se leerán al ejecutar el siguiente programa? 


10 
20 
30 
40 
50 
60 
70 
80 
90 


READ A, B, € 
PRINT B 

READ X, Y 

PRINT A, Y 

READ U, V, W, L 
DATA 1.1, 1.2, 1.3, 
DATA 2.3, 3.3, 3.7, 
DATA -2.3, -4.5 
END 


1.4 
4.8, 5.9, 7.3 
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5.2. Elabora un programa que compare un número con la siguiente serie de datos: 
1, 3, 5, 7 y 9, dé un informe afirmativo en el caso de que el número introducido 
coincida con alguno de la serie y dé un mensaje de error, a la falta de datos, en 
caso de que no coincida. 


5.3. Escribe un programa que contenga una instrucción DATA con los diez primeros 
números enteros positivos, y —1 en último lugar. Dicho programa deberá ir 
sumando los diez primeros números y cuando lea —1 imprimirá la suma; a con- 
tinuación que detenga la ejecución. 


3. Instrucción RESTORE 


En algunos programas es necesario volver a leer los datos almacenados en una 
instrucción DATA. Esto se consigue mediante la instrucción RESTORE. 


Esta instrucción cumple la función de regenerar los valores de la instrucción 
DATA, haciendo que se asigne el primer dato a la primera variable de la primera 
instrucción READ situada después de RESTORE, produciendo una asignación se- 
cuencial para el resto de las variables y datos. 


Así, al ejecutarse este programa: 


READ A, B, 
PRINT A; B; 
READ A, B, 
PRINT A; B; 
RESTORE 
READ A, B, € 

PRINT A; B; C 
DATA 1, 2, 3, 4, 5, 6 
END 


C 
C 

C 
C 


se imprime en la pantalla 


E A 
Mm UN 
wd O Uy 
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Con la inclusión en el programa de la instrucción 50 RESTORE se consigue que 
los primeros valores de DATA se asignen por segunda vez a las variables A, B y C 
en la instrucción 60 READ A, B, C. 


En resumen: En las instrucciones READ de este programa se hacen las siguientes 
asignaciones: 
— En 10 READ A, B, € se hace 


As 
— En 30 READ A, B, Cse hace A = 
— En 60 READ A, B, Cse hace A = 


ll 
4, 
1 


B=2 
B=5, 
B=2 


Ejercicios 


5.4. ¿Por qué razón en el siguiente programa las instrucciones READ se comienzan a 
leer siempre por el primer dato, sin seguir el orden secuencial? 


10 READA 

20 RESTORE 

30 READH, 1, J 

40 RESTORE 

50 READ X, Y 

60 DATA 2, -3, 4, -5, 2.3, 7 
70 END 


5.5. Añade instrucciones RESTORE al siguiente programa para que no se interrumpa 
su ejecución por falta de datos. 


10 READ X, Y 

20 PRINT X, Y 

30 READA, B, € 
40 PRINT (A * B)/C 
50 READL, M 

60 PRINTL f M 
70 DATA 4,7, 2 
80 END 


4. Resumen de las instrucciones estudiadas en este capítulo 


e READ 


— Significado: lee. 

— Formato: n READ (lista de variables) 
Las variables han de ir separadas por comas. 

— Función: asigna a las variables incluidas en READ los datos almacenados 
en una instrucción DATA, en forma secuencial. 
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DATA 


— Significado: datos. 
— Formato: n DATA (lista de datos) 
Los datos van separados por comas. 
— Función: Contiene los datos que serán leídos por una instrucción READ. 


e RESTORE 


— Significado: regenera. 

— Formato: n RESTORE. , 

— Función: permite volver a leer desde el principio los datos contenidos en 
las instrucciones DATA. 


de. 


Escribir un programa que permita practicar las tablas de multiplicar, 
de tal manera que vayan apareciendo en la pantalla los distintos pro- 
ductos que se pueden obtener multiplicando dos números compren- 
didos entre 1 y 9, ambos inclusive, pregunte cuál es su producto, y si 
el valor introducido es incorrecto vuelva a repetir la pregunta. 


Solución: 


1 REM TABLAS DE MULTIPLICAR 

10 READ A 

20 RESTORE 

30 READ B 

40 PRINT “CUANTO VALE”; A; “*”; B 

50 INPUT X 

60 IF X= A * B THEN PRINT “CORRECTO”: GOTO 90 
70 PRINT “INCORRECTO; ESCRIBE OTRO RESULTADO” 
80 GOTO 40 

90 IFB <9 THEN GOTO 30 
100 LETA=A+1 
110 IFA <= 9 THEN GOTO 20 
120 DATA 1, 2, 3, 4, 5, 6, 7, 8, 9 
130 END 
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2: 


Sabemos que el microordenador puede escribir los números en nota- 
ción entera, real y exponencial. Hacer un programa que sume, por 
ejemplo, los números 275, 38.45 y 2.3 E 7 utilizando READ y DATA. 


Solución: 


10 READA, B, € 

20 LETS=A+B+C 

30 PRINTS 

40 DATA 275, 38.45, 2.3E 7 
50 END 


co EJERCICIOS DE RECAPITULACIÓN secos 


9.1. 


ul 


O: 


5.4, 


Las siguientes instrucciones contienen errores. Identifícalos. 


a) 30 READ X, 30 

b) 10 READ X, Y; Z 

c) 40 DATA 5, 6, 7.5, X, 3.4 
d) 70 DATA 3, 4; 5 


Un programa contiene las siguientes instrucciones. 


30 READ A, B, C 
60 RESTORE 
70 READ W, X, Y, Z 


Arrrnnrarnnnnnns 


200 DATA 1, 3,5, 7, 9, 11, 13 


¿Qué valores se asignan a cada variable? ¿Qué valores se les asignarían si 
no estuviese la instrucción 60 RESTORE? 


Escribe las instrucciones READ y DATA que asignan los valores —1.6 E — 6 
500, 0.4077, 100, 110 a las variables C1, C2, (3, C4, C5. 


¿Qué imprimiría en la pantalla el microordenador al ejecutar este pro- 
grama? 


10 READA, B 

20 PRINTA, B 

30 READ C 

40 PRINTA+B+C 
50 DATA 2, 7 

60 END 
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di): 


20 


3dA 


5.8. 


son 


¿Qué valores imprimirá el siguiente programa al ejecutarse? 


10 READ X 

20 PRINTX 

30 IFX< > 3 THEN GOTO 10 
40 DATA7,6,5,4,3,2, 1 

50 END 


Diseña un programa que contenga en una instrucción DATA los números 
primos 2, 3, 5, 7, 11, 13, 17, 19 y 23, y que al introducir un número posi- 
tivo menor que 25 imprima si es primo o no. 


Haz un programa que al introducir una cantidad en pesetas dé su equiva- 
lente en libras esterlinas, dólares, marcos, liras y francos. 

El programa almacenará en una instrucción DATA las siguientes equivalen- 
cias: 


1 libra = 210 ptas 
1 dólar = 170 ptas 
1 marco = 57 ptas 
1 lira = 0.09 ptas 
1 franco = 18 ptas. 


En un observatorio se han registrado en una semana las siguientes tempe- 
raturas: 


D L MA J V 7 
20 22 25 24d 23 4% 


Escribe un programa que introduzca estos datos mediante instrucciones 
READ y DATA, y calcule la temperatura media. 


En una encuesta las respuestas afirmativas se registran con 1 y las nega- 
tivas, con 0. Se encuesta a 50 personas, estando la última respuesta se- 
guida del valor —1. Escribe un programa que incluya las siguientes instruc- 
ciones DATA y que cuente el número de respuestas afirmativas y negativas. 


900 DATA 1, 2,2, 1,2,2, 
910 DATA2, 1,1, 1, 
920 DATA 1 
930 DATA 1, 
940 DATA 1 


5.10. El siguiente programa muestra cómo se pueden hacer dibujos sencillos con 
las instrucciones BASIC conocidas hasta ahora. 


1 
10 
20 
30 
40 
50 
60 
70 
80 
90 

100 
110 
900 
910 
920 


REM IMPRIME UN DIBUJO 
READ X 

IFX = —1 THEN GOTO 920 
IF X = 1 THEN GOTO 60 

IF X = 2 THEN GOTO 80 

IF X = 3 THEN GOTO 100 
PRINT “xxx” 
GOTO 10 

PRINT “xxx” 

GOTO 10 

PRINT “*xxxrxxxx*" 
GOTO 10 
DATA 1, 1, 1,2, 

DATA. 2,,2,:2,2,,2,.1, 1; 
END 


y LM AE E E 
A 


¿Qué letra dibuja este programa? 


5.11. Basándote en el ejercicio anterior haz un programa que dibuje la letra C en 
la pantalla. 


5.12. Diseña un programa que dibuje una L en la pantalla. 


5.13. Haz un programa que dibuje la letra U en la pantalla. 


li) 


6. Repetición de procesos: 
Bucles 


1. Cómo repite el microordenador un proceso muchas veces. 
Instrucción FOR-NEXT 


e Una de las cualidades más importantes del microordenador es su capacidad de 
repetir procesos un gran número de veces, sin equivocarse y empleando muy 
poco tiempo. 


e La repetición de una tarea la realiza el microordenador mediante dos instruc- 
ciones, cuya función puede verse en el siguiente programa que escribe diez 
veces la frase SOY UN AUTÓMATA. 


10 REM 
(20 FORX= 1T0 10] 
30 PRINT X, “SOY UN AUTOMATA”" 


50 END 


Después de teclear RUN y | ENTER |se ejecuta el programa apareciendo en la 
pantalla lo que muestra la fotografía. 
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2, 


Las instrucciones claves de este programa son la 20 FOR X = 1 TO 10, que 
significa desde X = 1 hasta 10, y la 40 NEXT X (siguiente X). 


— Cuando se inicia la ejecución de la instrucción 20, la variable X adquiere el 
valor 1 y la instrucción 30 imprime este valor y la frase SOY UN AUTÓ- 
MATA. 


— A continuación, se ejecuta la instrucción 40 NEXT X, que significa sí- 
guiente X. Esta instrucción hace saltar la ejecución del programa a la ins- 
trucción 20, que al ejecutarse por segunda vez, hace adquirir a X el valor 2. 
Acto seguido, la instrucción 30 imprime 2 y la frase SOY UN AUTÓMATA. 


— A continuación, se ejecuta nuevamente la instrucción 40 NEXT X que hace 
saltar la ejecución a la instrucción 20, repitiéndose otra vez lo mismo para X = 
= 3, y así sucesivamente. 


El proceso se ejecuta por última vez cuando la variable X alcanza el valor 10, y 
después de imprimirse este valor y la frase SOY UN AUTÓMATA, la ejecución 
continúa en la instrucción 50 END, dándose por terminada la ejecución del 
programa. 


Vemos que, mediante las dos instrucciones FOR y NEXT, podemos ejecutar va- 
rias veces un conjunto de instrucciones; éstas, juntamente con FOR y NEXT se 
denominan ciclo o bucle. 


La primera instrucción de un bucle es siempre FOR y la última, NEXT. 
Primera instrucción del bucle 


60 FOR A = 3.7 TO 25 


A A 
07 
Última instrucción del bucle 
Un programa que confecciona una tabla de cuadrados 


e El siguiente programa confecciona una tabla de cuadrados de los números na- 


turales del 10 a N, ambos inclusive 
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REM TABLA DE CUADRADOS 
INPUT “N ="; N 

PRINT “NUMERO”, “CUADRADO” 
FOR | = 10 TON 

LETC=1 2 


PRINT 1, € 
NEXT | 
END 


La ejecución de este programa se interrumpe nada más comenzar, apareciendo 
una ? o una L, según el microordenador. Para que continúe la ejecución se in- 
troduce desde el teclado un valor para N (introducimos, por ejemplo, 20). Una 
vez introducido, sigue la ejecución imprimiéndose las sucesivas filas de la tabla, 
tal como se observa en la fotografía. El bucle se ejecuta hasta que | alcanza el 
valor N inclusive, y una vez ejecutado el bucle para | = N se transfiere el con- 
trol a la instrucción siguiente a la 60 NEXT l, es decir, a la 70 END. 


e Tanto en este programa como en el anterior, vemos que después de la palabra 
FOR se encuentra una variable que adquiere un valor inicial (el número que 
se encuentra antes de la palabra TO) y un valor final o tope (el número que 
está después de la palabra TO). Ejemplo: 


30 FORA = 5T0 23 
1 


Ir 
Variable Valor inicial Valor final (tope) 
de control de la variable de la variable 


En los casos considerados hasta ahora, la variable aumenta sucesivamente de 
valor «saltando» de 1 en 1, desde que adquiere el valor inicial hasta que llega 
al valor final; se dice que la instrucción tiene un salto o incremento de 1. 
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Ejercicios 


6.1. Indica qué escribiría en la pantalla el siguiente programa: 
10 FORN=1T06 
20 PRINT “LA RAIZ CUADRADA DE”; N; “ES”; SQR(N) 
30 NEXT N 
40 END 


6.2. Escribe un programa que imprima en la pantalla 


1. VEO LA VIDA CON OPTIMISMO 
2. VEO LA VIDA CON OPTIMISMO 


15. VEO LA VIDA CON OPTIMISMO 


6.3. Haz un programa que confeccione una tabla de las raíces cuadradas de los nú- 
meros comprendidos entre 100 y 112, ambos inclusive, con la siguiente cabe- 
cera: 


NÚMERO RAÍZ CUADRADA 


3. Instrucción FOR ... TO ... con incremento distinto de 1 


En su forma más simple, la instrucción FOR ... TO ... avanza incrementando en 1 
la variable de control, hasta llegar a un valor final o tope. Pero añadiendo la pala- 
bra STEP, que significa paso, el incremento puede ser distinto de 1, tal como se 
ve en el siguiente programa que calcula los cuadrados de los números 1.5, 2, 2.5, 
3, 3.5 y 4.5 disponiéndolos en forma de tabla. 


REM CUADRADOS 
PRINT “NUMERO”, "CUADRADO" 
FOR X = 1.5 TO 4,5 STEP 0.5 
LETC=X 1 2 

PRINT 


PRINT X, C 
NEXT X 
END 
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Al ejecutar el programa (RUN | ENTER )) aparece la tabla que muestra la fotografía: 


Observamos en la instrucción 20 FOR X = 1.5 TO 4.5 STEP 0.5, que los valores 
iniciales y finales no tienen por qué ser necesariamente enteros y que la variable X 
se incrementa también en un valor no entero, con la utilización de la palabra 
STEP. 


4. Algunos programas con la instrucción FOR ... TO ... STEP 


e El incremento de la variable también puede ser un valor negativo. En este caso, 
en lugar de crecer los valores de la variable, decrecen, como se puede compro- 
bar en este programa: 


REM CUADRADOS 

PRINT “NUMERO”, “CUADRADO” 
FOR X = 4.5 TO 1 STEP -0.5 
LETC=X 12 

PRINT 


PRINT X, C 
NEXT X 
END 
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que imprime la tabla anterior invertida 


e La instrucción FOR también acepta variables y expresiones aritméticas en lugar 
de valores numéricos, pero en el momento de la ejecución las evalúa previa- 
mente llegando a un valor numérico inicial y final. Por ejemplo, en la instruc- 
ción 20 FORP = QTO 2 * Q - 1, del siguiente programa, el valor inicial de 
la variable P es el de la variable Q, es decir, 4, y el valor final corresponde al de 
la expresión 2*Q — 1,05se,2*4-1=8-1=7, 


LETQ =4 
FORP=QT02x*Q-1 
PRINT P 

NEXT P 

END 


Según se va ejecutando este programa, va escribiendo en la pantalla los valores 
sucesivos que adquiere P, lo que permite comprobar la extensión del bucle: 
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e En este otro programa el valor inicial y el final de la variable de control P, tam- 
bién viene dado por dos expresiones aritméticas; el inicial corresponde al valor 
de la expresión Q/2, es decir, 4/2 = 2, y, el final, al valor numérico de Q + 3, o 
sea, 4 * 3 = 12. 


LETQ =4 
FORP = Q/2T0Q * 3 
PRINT P 

NEXT P 

END 


La ejecución del programa hace aparecer en la pantalla los sucesivos valores 
que adquiere la variable P, uno debajo de otro. 


5. Entrada y salida de un bucle 


e Solamente se puede entrar en un bucle por su primera instrucción FOR ... TO 
... Es decir, en un programa no se puede acceder directamente a una instruc- 
ción interior del bucle sin antes haber pasado por la FOR ... TO ... Por ejemplo, 
si se intentara ejecutar el siguiente programa, inmediatamente se interrumprría, 
apareciendo en la pantalla un mensaje de error. 
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LETN =5 
GOTO 40 


FOR X = NTO 10 
Bucle => PRINT 
PRINTX ? 2 


NEXT X 


e Por el contrario, se puede salir de un bucle mediante una instrucción GOTO, 
sin que por ello se detenga la ejecución. Así, en el siguiente programa la ins- 
trucción 30 IF A > 10 THEN GOTO 70 hace saltar la ejecución a la instrucción 
70 PRINT A, sin que por ello se interrumpa la ejecución del programa. 


INPUTN 
FORA =1TON 

IF A > 10 THEN GOTO 70 
LETX =-A 

PRINT X 


NEXT A 


PRINT A 
END 


Ejercicios 


6.4. Elabora un programa que imprima los 25 primeros números pares. 
6.5. Indica qué imprime en la pantalla el siguiente programa. 


10 FORL = 12 TO 30 STEP 3 
20 PRINT L; 

30 NEXT L 

40 END 
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6.6. Escribe un programa que imprima en la pantalla los múltiplos de 5 compren- 
didos entre 100 y 150. 


6.7. Elabora un programa que escriba en la pantalla los treinta primeros números im- 
pares negativos. 


6.8. Escribe los resultados que imprimiría el siguiente programa si fuera ejecutado. 


10 LETA=-4 

20 LETB=5 

30 FORR=A+BTOA + B STEP -2 
40 PRINTR,R f 3 

50 NEXT R 

60 END 


6. Bucles en el interior de otros bucles: bucles anidados 


e Nos planteamos este problema: calcular las potencias 1.?, 2.?, 3.?, 4.2, y 5.? de 
los números 1, 2 y 3, es decir, las potencias de base B = 1, 2 y 3 de expo- 
nente E = 1, 2, 3, 4, y 5. En concreto, se trata de hacer lo siguiente: 


— Para B = 1, calcular: 


— Para B = 2, calcular: 
21 


— Para B = 3, calcular: 
31 


El programa que transcribimos lleva a cabo estos cálculos utilizando dos bucles, 
uno de variable B (el «exterior»: instrucciones 10-70) y otro de variable E (el 
«interior»: instrucciones 30-60). 


86 


5 REM POTENCIAS 
10 FORB=1T03 
20 PRINT “PARA B ="; B 


n——-30 FORE=1T05 
ci Bue 40 LETP=BJE 
interior 50 PRINTP 
L——— 60 NEXTE 
70 NEXT B 
80 END 


¿Cómo funciona este programa? 

— Primeramente, la instrucción 10 FOR B = 1 TO 3, inicializa el bucle 10 - 70, 
que en su primera ejecución almacena en la variable B el valor 1. A continua- 
ción, la instrucción 20 imprime PARA B = 1. 

— La instrucción 30 FOR E = 1 TO 5 inicializa el bucle 30 - 60, de variable E. 
Este bucle da “cinco vueltas”, en las cuales las instrucciones 40 y 50 calcu- 
lan e imprimen, respectivamente, las potencias A A 
17. Después de la “quinta vuelta”, la ejecución sigue en la instrucción 70 
NEXT B, que devuelve el control a la instrucción 10. 

— Por segunda vez se ejecuta el bucle 10 - 70, haciéndose B = 2 e impri- 
miéndose PARA B = 2. A continuación, el bucle 30 - 60 da otras “cinco 
vueltas”, en las cuales se calculan e imprimen las potencias 2%, es decir, 2?, 
2?, 2?, 2* y 2?. Después de la “quinta vuelta”, la ejecución sigue en la ins- 
trucción 70, que otra vez devuelve el control a la instrucción 10. 

— Por tercera y última vez se ejecuta el bucle 10 -70, haciéndose B = 3 e im- 
primiéndose PARA B = 3. A continuación, el bucle 30 -60 da nuevamente 
otras “cinco vueltas”, en las cuales se calculan e imprimen las potencias E 
o sea, 31, 32, 3*, 3* y 3%, Después de la “quinta vuelta”, la ejecución sigue 
en la instrucción 70 (que ya no devuelve el control a la 10) y después en la 
80 END; ésta da por terminada la ejecución del programa. 


Resumiendo: Este programa contiene dos bucles: 
— Uno exterior de variable B, que da «tres vueltas». 


— Otro interior de variable E, que da «cinco vueltas» por cada vuelta del pri- 
mero (en total, «quince vueltas»). 
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Se dice que ambos bucles son anidados (el bucle interior está anidado en el exte- 
rior). 


Al ejecutarse este programa aparece en la pantalla lo que muestra la fotografía. 


e Un bucle interno tiene que estar incluido en su totalidad en otro más externo, 
tal como se muestra en este ejemplo: 


10 FOR| =... 
20 FOR) =... 


100 NEXT K 
110 NEXT J 
120 NEXT | 


En cambio, la disposición de los bucles en el siguiente ejemplo es incorrecta: 


10 FOR] =... 
20 FOR) =... 


OS 
irrrararnrrnanannnnnnss 


70 NEXT | 
80 NEXT J 
90 NEXT K 


Vemos, entonces, que los bucles no se pueden «cruzar» y que se ejecutan «de 
dentro hacia afuera». 
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Ejercicios 


6.9. 


6.10. 


0-12; 


6.13. 


6.14. 


Escribe lo que imprimiría el siguiente programa al ser ejecutado. 


10 FORJ=1T04 
20 FORK=1T02 
30. PRINTJ;'",*= ik; 
40 NEXT K 

50 NEXT J 

60 END 


Observación: Advertir el diferente significado de las dos comas en la instruc- 
ción 30: la coma entre comillas se imprime a continuación del valor de ) y la 
coma no entrecomillada significa que el siguiente valor del par J, K se imprime 
en la segunda zona de la pantalla. 


Haz un programa que escriba en la pantalla los siguientes pares de valores y en 
la disposición que se indica. 


A, 
52 
3,3 
6,1 
6,2 
6,3 


Elabora un programa que imprima la siguiente tabla. (Suponer una pantalla de 
dos zonas.) 


1 1,2 
2,1 2,2 
3,1 3,2 
4,1 4,2 
Al 952 


Escribe un programa que genere el producto cartesiano de los conjuntos: 
A= (1, 2, ..., 10) 

B= 012,050) 

Es decir, el programa deberá generar los pares 


1,1 1,2 1,3 1,4 1,3 
2,1 2,2 2,3 2,4 2,5 


10,1 10,2 10,33 104 105 


Escribe un programa que imprima los resultados posibles que se obtienen al 
lanzar dos dados. (Algunos resultados posibles son: 1,1; 1,6; 2,3; 5,6; 6,6; 
etcétera.) 


Elabora un programa que genere las tablas de multiplicar del 1, 2, ..., y 10. 
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7. Las instrucciones FOR — NEXT (Resumen) 


e n FOR... TO... STEP 


— Significado: desde ... a ... en pasos de ... 
— Formato: n FOR V = ¡TO t STEP s 
— Función: Ejecuta un conjunto de instrucciones llamado bucle, que empieza 


en FOR y termina en NEXT. El bucle se inicia cuando la variable V toma el 
valor inicial , y termina después de alcanzar el valor final o tope t. La varia- 
ble V incrementa su valor en función del incremento s. 


e n' NEXT V 


— Significado: siguiente V. 
— Formato: n' NEXT V, donde n' es el número de la instrucción y V la varia- 


ble definida en la instrucción FOR. 


— Función: Transfiere la ejecución a la instrucción n FOR ... TO ... STEP 


siempre que el valor de la variable V sea menor o igual que el valor final o 
tope t. 


e EJERCICIOS RESUELTOS rr 


¡E 


Escribir lo que se obtendría en la pantalla si se ejecutara el siguiente 
programa. 

10LETM=0 

20 FOR | =0 TO 17 

30 IF 1 = M THEN LET M = M + 4: PRINT l; “ES MULTIPLO 

DE 4" 

40 NEXT | 

50 END 


Solución: 


0 ES MULTIPLO DE 4 
4 ES MULTIPLO DE 4 
8 ES MULTIPLO DE 4 
12 ES MULTIPLO DE 4 
16 ES MULTIPLO DE 4 


Escribir un programa que imprima en la pantalla múltiplos de 3, de 


tal manera que si el múltiplo es par salte al siguiente, y si es impar, 
escriba además su consecutivo, y después salte al siguiente múltiplo. 
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Solución: 


5 REM IMPRIME O, 3, 4, 6, 9, 10, ... 
10 CLS: PRINT 
15 INPUT “TOPE”; N 
20 LETD=0 
30 FORM =0TO N STEP 3 
40 IFD=OTHENPRINTM; ”,”;: LETD=1: GOTO 70 
50 LETD=0 
60 PRINTM;”,";M+1;”,”; 
70 NEXT M 
80 END 


na EJERCICIOS DE RECAPITULACIÓN oros 


6.1. Analiza los dos programas siguientes. ¿Qué imprimen en la pantalla? Ob- 
tén una conclusión. 


10. LETF=1 
20 IF F> 8 THEN GOTO 99 10 FORF=1T08 
30 PRINT “F="; F 20 PRINT “F="; F 
40 LETF=F+1 30 NEXT F 
50 GOTO 20 99 END 
99 END 
6.2. Escribe lo que imprime en la pantalla el siguiente programa, al ser ejecu- 
tado. 
10 LETX=0 


20 FORK =1T0 4 
30 LETX=X+K 
40 NEXT K 

50 PRINT X 

60 END 


6.3. Haz un programa que produzca los mismos resultados en la pantalla que 
el anterior, sin utilizar las instrucciones FOR - NEXT. 
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6.4. 


6.5. 


6.6. 


6.7. 


6.8. 


¿Qué imprimirá en la pantalla el siguiente programa? 
10 LETP=1 

20 FORK=1T04 

30 LETP=Px*K 

40 NEXT K 

50 PRINTP 

60 END 


Analiza el siguiente programa y escribe lo que imprime en la pantalla. 


10 LETN =1 

20 FORK=1TON 

30 PRINT “x*” 

40 NEXT K 

50 PRINT 

60 LETN=N+1 

70 IFN > 10 THEN GOTO 90 
80 GOTO 20 

90 END 


¿Qué imprime el siguiente programa? 


10 LETS=0 

20 FOR K = 1 TO STEP 2 
30 LETS=S+K 

40 NEXT K 

50 PRINTS 

60 END 


¿Son correctos los programas que incluyen las siguientes instrucciones? 
a) 20FOR!|=1TO 100 STEP2  b) 50FORN=N1TON2 


(rr rr rr rr rr rn rar rra rra 


120 1FN = 10 THEN GOTO 75 


Analiza los siguientes programas e indica si son correctos. 
a) 100 FOR K = 3TO-3 STEP -1 b) 25 FOR X= 1TO 2 STEP 0.05 


130 PRINTX f K 50 FOR Y = 1 TO 10 STEP 0.1 

o NS 

IDEND 2. 1 LS Ain 
100 NEXT Y 
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6.9. 


6.10. 


6.11, 


6.12. 


6.13. 


c) 100 FORI=1TOM d) 10 FORA = 5T0 10 
A 20 FOR B = 1 T0 3 
TO PORTS TIO A 
oir tiaiSsS 60 NEXT B 
135 FORK =1TOM+N 70 NEXT A 
160 NEXT K 100 FOR B = 1TO 4 
Pon 110 FORA = 4T0 10 
ISO NEXT. 
A 140 NEXT B 
200 FOR] = TON rr 
AO 180 NEXT A 
ZES NEXT 
235 FORK = 1T0M+N 
240 NEXT K 
250 NEXT | 


Escribe un programa que calcule e imprima la suma de los números en- 
teros comprendidos entre 1 y N, ambos inclusive, siendo N un valor que se 
introduce mediante una instrucción INPUT. 


Escribe un programa que confeccione una tabla de las raíces quintas de 
los números comprendidos entre 1 y 2, en intervalos de 0.1. 


Haz un programa que calcule la suma 
1242243 +.. +99 


Escribe un programa que calcule la media aritmética de una lista de N nú- 
meros utilizando una instrucción INPUT para introducir N y después un 
bucle FOR - NEXT en el que esté incluida otra instrucción INPUT o una 
READ para introducir cada número. 


Elabora un programa que calcule el producto de los N primeros números 
naturales, sin contar el cero. (Observación: El producto aludido en este 
enunciado se llama factorial de N y suele simbolizarse así: N!. Por ejemplo, 
el producto 1*2*3x*4*5*6+7 se llama factorial de 7 y se indica por 7!) 
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7. Cadenas 


d 


Cadenas de caracteres 


e Una cadena de caracteres es una sucesión de letras, números y cual- 


quier otro símbolo gráfico, los cuales se escriben entre comillas para in- 
dicar el comienzo y el final de la cadena. 


Los espacios en blanco también se consideran como caracteres. 
Ejemplos de cadenas: 


“PEDRO” 

” 328" 

"A43" 

"42,4?" 
“CARMEN LOPEZ” 


Así como los números se guardan en variables numéricas, las cadenas de ca- 
racteres se guardan en variables de cadenas, también llamadas variables alfa- 
numéricas. Estas, se distinguen de las primeras, porque su nombre siempre ter- 
mina con el símbolo $ (símbolo de dólar). 

Ejemplos de variables de cadenas: 


LL27A$ 

Las variables de cadenas, como las numéricas, comienzan por una letra seguida 
de números o letras y terminando con $. Algunos microordenadores admiten 
sólo una letra seguida de $. 


En el siguiente programa se utiliza una variable de cadena para dar los buenos 
días a la persona que lo ejecuta. 


REM SALUDO 

PRINT “CUAL ES SU NOMBRE” 
INPUT N$ 

PRINT “BUENOS DIAS ”; N$ 
END 
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Si se ejecuta el programa (teclear RUN y | ENTER]) aparecerá en la pantalla: 


CUAL ES SU NOMBRE 
? 


Al introducir “PEDRO GARCÍA” (y | ENTER]) se obtiene este resultado en la 
pantalla: 


BUENOS DIAS PEDRO GARCIA 


Ejercicios 


7.1. Si al ejecutar este programa introduces tu nombre, ¿qué obtendrás en la 
pantalla? 


10 INPUT “NOMBRE”: A$ 

20 FORI|=1T0 10 

30 PRINT “EL ALUMNO”; A$; “ES UN GRAN PROGRAMADOR” 
40 NEXTI 

50 END 


7.2. Haz un programa que lea el nombre y los apellidos de una persona y los im- 
prima infinitas veces. 


7.3. Escribe un programa que lea los días de la semana en una instrucción DATA 
y los imprima seguidos, dejando un espacio en blanco entre cada dos nom- 
bres. 


95 


2. Suma o concatenación de cadenas 


e La suma o concatenación de cadenas es una operación que une dos ca- 
denas, poniendo la segunda a continuación de la primera sin separación en- 
tre ellas. 


El símbolo con que se representa esta operación es +. 

Por ejemplo, si 

A$5 ="RIO" y  B$5="EBRO”. 

A$ + B$ da como resultado “RIOEBRO”, sin separación entre las dos pala- 
bras, pues no se dejó ningún espacio en blanco al definirlas. 


e En el programa que transcribimos a continuación se concatenan dos ca- 
denas: 


REM CONCATENACION 
INPUT “QUE PIDO”; A$ 
LET B$ = “QUIERO ” + A$ 
PRINT B$ 

END 


La operación de concatenación se realiza en la instrucción 20, uniendo la ca- 
dena “QUIERO ” con el contenido de la variable A$. Si se ejecuta el programa 


(teclear RUN y| ENTER|) aparece en pantalla este mensaje: 


QUE PIDO?. 
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Al introducir el dato AGUA (pulsar ENTER]) se obtiene: 


QUIERO AGUA 


3. Longitud de una cadena 


Se llama longitud de una cadena al número de caracteres que tiene. 


Existe una función que permite calcular la longitud de una cadena: es la función 
LEN. Así, LEN (A$) determina la longitud de la cadena almacenada en la variable 
A$. 


El siguiente programa aplica la función LEN para calcular la longitud de cualquier 
cadena que se introduzca desde el teclado. 


REM LONGITUD DE UNA CADENA 
INPUT A$ 

LET N = LEN (AS) 

PRINT “LA LONGITUD ES:”; N 
END 


Al ejecutar el programa (teclear RUN y |ENTER]|) el microordenador pedirá una 
cadena para la variable A$. 
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Si se introduce la cadena “HOLA MIGUEL” (pulsar | ENTER]|) se obtiene en la pan- 
talla lo siguiente: 


LA LONGITUD ES: 11 


Observar que el espacio que separa HOLA de MIGUEL también se ha computado 
como un carácter. 


4. Transformación de un número en una cadena numérica y recí- 
procamente 


e Una sucesión de dígitos puede considerarse como número o como cadena. Así, 
358, escrito sin comillas, hace referencia al número 358 y como tal, se le pue- 
den aplicar las operaciones de adición, sustracción, multiplicación, etc.; en 
cambio, “358” es una cadena de dígitos, a la cual se le puede aplicar la opera- 
ción de concatenación y la función LEN. 


e Existen dos funciones que permiten transformar un número en cadena de dí- 
gitos, y recíprocamente: son las funciones STR$ y VAL, respectivamente. 
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— La función STR$ (N) transforma el valor numérico almacenado en la variable 
N en una cadena de dígitos. Por ejemplo, si N = 3250, la función STR$(N) 
transforma el número 3250 en la cadena "3250". 


— La función VAL (B$), produce la transformación inversa, es decir, trans- 
forma una cadena de dígitos en un número. Por ejemplo, si BÉ = “02315”, 
la función VAL(B$) transforma la cadena “02315” en el número 2315. 


e A continuación se aplican ambas funciones. El programa pide dos números, los 
transforma en cadenas numéricas por medio de la función STR$, concatena 
estas cadenas y el resultado lo pasa a valor numérico por medio de la función 
VAL. 


REM CONCATENACION DE CADENAS NUMERICAS 
INPUT N 

INPUT M 

LET A$ = STRS(N) 

LET B$ = STR$(M) 


LET C$ = AS + B$ 

LET P = VAL(C$) 

PRINT “EL NUMERO ES:”; P 
END 


Si se ejecuta el programa (teclear RUN y [ENTER]) y se introducen los números 
4567 y 123 el resultado que se observará en la pantalla será el siguiente: 


EL NUMERO ES: 4567123 


Observar que en la ejecución de este programa se han seguido los pasos descritos 
en su enunciado: 


— Las instrucciones 10 y 20 permiten introducir dos números (en este ejemplo, 
4567 y 123). 
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— Estos números son transformados en cadenas numéricas mediante las instruc- 
ciones 30 LET A$ = STR$(N) y 40 LET B$ = STR$(M), quedando almacena- 
dos en las variables A$ y B$, respectivamente. 

— En la instrucción 50 se concatenan ambas cadenas, poniéndose la segunda a 
continuación de la primera, y guardando el resultado "4567123" en varia- 
ble C$. 

— La instrucción 60 LET P = VAL (C$) transforma la cadena numérica almace- 
nada en C$ en un número que se guarda en P. 


— Por último, la instrucción 70 imprime el número resultante. 


Ejercicios 


7.4, 


7.3, 


7.6. 


Tide 


¿Qué imprime en la pantalla el siguiente programa, si cuando se ejecuta se in- 
troduce una palabra? 


10 INPUT A$ 

20 LETX$ = “***" + AS + “xxx 
30 PRINT X$ 

40 END 


Haz un programa que permita introducir dos palabras, las concatene interca- 
lando cinco asteriscos entre ellas e imprima el resultado. 


Diseña un programa que dé las longitudes de las cadenas que se van introdu- 
ciendo y que detenga su ejecución al introducir una de longitud 1. 


Realiza un programa que permita introducir como cadena el nombre de un 
abonado y como número, su número de teléfono; transforme éste en cadena, 
concatene ambas cadenas, y, finalmente, imprima el resultado. 


5. Extracción de subcadenas 


Dada una cadena, puede interesar extraer unos cuantos caracteres consecutivos, 
es decir, una subcadena; por ejemplo, de la cadena CASTELLÓN, sus tres pri- 
meras letras: CAS. Esto se puede realizar utilizando una de estas funciones, 
LEFT$, RIGHTS, MID$, según que los caracteres que se quieran extraer estén 1 
principio, al final o en medio de la cadena. Así: 


LEFT$ (AS, N) extrae los N primeros caracteres de la cadena guardada en AS. 
RIGHT$ (A$, N) extrae los N últimos caracteres de la cadena A$. 

MID$ (AS, P, N) extrae en la cadena A$, N caracteres a partir del que está en la 
posición P. 
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Por ejemplo, si 


A$ = “CASTELLON”, 

X$ = LEFT$ (A$, 3) guarda en X$, “CAS” 
Y$ = RIGHTS (A$, 4) guarda en Y$, “LLON” 
25 = MID$ (A$, 4, 5) guarda en Z$, “TELLO” 


En el programa que sigue al introducir el nombre de una ciudad A$, se almacena 
en X$ sus dos primeras letras, en Y$ las tres últimas y en Z$, cuatro, a partir de la 
tercera letra inclusive (*). 


REM EXTRACCION DE SUBCADENAS 
INPUT “CIUDAD”; A$ 

LET X$ = LEFTS (AS, 2) 

LET Y$ = RIGHTS (AS, 3) 

LET Z$5 = MID$ (AS, 3, 4) 


PRINT X$ 
PRINT Y$ 
PRINT 25 
END 


Al ejecutar el programa (teclear RUN y | ENTER]) aparece en la pantalla: 


CIUDAD? 


(*) Si el nombre no tiene suficientes caracteres, al intentar extraer una subcadena se interrumpiría 
el programa, dando un mensaje de error. 
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Si introducimos el nombre SANTANDER seguido de | ENTER|, se obtiene lo si- 
guiente: 


SA 
DER 
NTAN 


En este programa: 
— La instrucción 10 pide el nombre de la ciudad. 


— Las instrucciones 20, 30 y 40 extraen las subcadenas, almacenando sus valores 
en X$, Y$ y Z5, respectivamente. 


— Las instrucciones 50, 60 y 70 imprimen las subcadenas en tres líneas consecu- 
tivas, y la instrucción 80 da por finalizado el programa. 


6. Otra forma de extraer subcadenas 


Algunos microordenadores no tienen las funciones que se han definido anterior- 
mente para extraer subcadenas. Pero esto no significa que no las puedan extraer, 
sino que lo hacen de otra forma, por ejemplo, utilizando la palabra TO, que actúa 
de la siguiente manera: 


A$ (N TO P) extrae los caracteres que se encuentran entre la posición N y la 
posición P, ambas inclusive, de la cadena A$. 

A$(N TO) extrae desde el carácter de posición N al último carácter, de la 
cadena A$. 

A$ (TOP) extrae todos los caracteres desde el principio hasta el de posición 
P, de la cadena Af. 


Si, por ejemplo, A$ = “LEVANTE”, se tiene que: 


X$ = A$ (3TO 6) guarda en X$, "VANT" 
Y$ = A$ (4710) guarda en Y$, “ANTE” 
Z$ = A$(TO 3) guarda en Z$5, "LEV" 
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Las equivalencias entre estas dos formas de extraer subcadenas se indican a conti- 
nuación: 

LEFTS (A$, N) — A$ (TO N) 

RIGTH$ (A$, N) — A$ (LEN(A$) — N TO) 

MID$ (AS, P, N) — A$ (PTOP+N-— 1) 


Ejercicios 


7.8. Haz un programa que forme una subcadena con la primera y última letra de 
cualquier cadena que se introduzca a través del teclado. 

7.9. Elabora un programa que lea una cadena, calcule su longitud L e imprima en la 
primera fila el primer carácter L veces, en la segunda fila, el segundo carácter L 
veces, y así sucesivamente. 


7. Comparación de cadenas 


e En la vida diaria observamos que no sólo los números están ordenados, sino 
que también lo están las palabras; basta abrir las páginas de un diccionario 
para ver que las palabras siguen el orden lexicográfico o alfabético. 


Las cadenas también se ajustan a un orden que se ha establecido siguiendo 
estos criterios: 


— La comparación entre dos cadenas se realiza carácter a carácter, empe- 
zando siempre por la izquierda. 


— Cualquier cifra es siempre anterior a cualquier letra. 

— El orden entre letras se ajusta al alfabético. 

Ejemplos: 

"123" <"42” La cadena “123” es anterior a la cadena “42”, pues 1 < 4 
(léase 1 es anterior a 4). 
Observamos que el orden entre cadenas no coincide con el 
orden entre números. Así: 


123 > 42 (orden entre números) 
"123" < "42" (orden entre cadenas) 


“MARÍA” < “MARTA” La cadena “MARÍA” es anterior a la cadena 
“MARTA”, pues, aunque las tres primeras letras de 
ambas cadenas son iguales (M, A y R), la cuarta le- 
tra de “MARÍA” (la |) es anterior a la cuarta de 
“MARTA” (la T). 


"X32" > "427" La cadena “X32" es posterior a la cadena “427” por ser X 
posterior a 4. 
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Además de los comparadores < (es anterior a) y > (es posterior a) se pue- 
den utilizar estos comparadores: =, < =, > = y <>. También se pueden in- 
tercalar entre cadenas los operadores lógicos AND, OR y NOT. 


e En el siguiente programa aplicamos los conceptos anteriores a la comparación 
de cadenas. 


REM ORDENADOR DE CADENAS 

INPUT AS, B$ 

IF AS < B$ THEN PRINT AS, B$: GOTO 40 
PRINT BS, A$ 

END 


Si al ejecutar el programa (teclear RUN y | ENTER]|) se 'introducen como datos 
“DAVID” y “CARLOS” (seguidos de | ENTER]), en la pantalla aparecerá: 


CARLOS DAVID 


En la instrucción 10 se introducen las dos cadenas A$ y B$. 

La instrucción 20 compara las cadenas; si están en orden las imprime y envía la 

ejecución al final del programa. Como en este ejemplo no están en orden, pues 

no se cumple que “DAVID” < “CARLOS”, se ejecuta la instrucción siguiente (la 

30), que imprime “CARLOS” y después “DAVID”. 

Ejercicios 

7.10. Realiza un programa que lea cadenas y las imprima junto con su longitud hasta 
que se introduzca la cadena “BASTA”. 
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7.11. Construye un programa que imprima el primer carácter de la cadena que se in- 
troduzca si ésta es anterior a “ULTIMA”, y termine su ejecución cuando se in- 
troduzca “FIN”. 


8. Instrucciones de espera y de borrado de pantalla 


e Así como la instrucción STOP interrumpe la ejecución del programa un tiempo 
indefinido (hasta que se teclea CONT y |ENTER|), la instrucción WAIT (n) o 
PAUSE n, según el microordenador, detiene la ejecución del programa y man- 
tiene la imagen en la pantalla un tiempo limitado, que depende de n. Para 
conseguir una espera de 1 segundo n debe ser igual a 50, aproximadamente. 


La instrucción que borra la pantalla es CLS, aunque suele variar según los mi- 
croordenadores. 


En el siguiente programa se utilizan ambas instrucciones para dar alternativa- 
mente los buenos días y buenas tardes, diez veces consecutivas. 


FOR | = 1T0 10 

PRINT “BUENOS DIAS” 

WAIT (100) 

CLS o 30 PAUSE 100 


PRINT “BUENAS TARDES” 


WAIT (100) 
CLS o 60 PAUSE 100 


NEXT | 
END 


Al ejecutar el programa (teclear RUN y | ENTER]) la frase “BUENOS DIAS” perma- 
nece en la pantalla 2 segundos aproximadamente. A continuación se borra la 
pantalla e inmediatamente aparece la frase “BUENAS TARDES”, permaneciendo 
otros 2 segundos. La instrucción 70 CLS borra otra vez la pantalla. 


Este proceso se repite diez veces en total. 


9. Un programa para realizar el cambio de moneda 

El programa siguiente, que transforma un número de pesetas a dólares, libras o 
marcos, utiliza la comparación entre cadenas y las instrucciones de espera y bo- 
rrado de pantalla. 
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1 REM CAMBIO DE MONEDAS 
10 PRINT “INTRODUZCA EL CAMBIO ACTUAL” 
20 INPUT “VALOR DEL DOLAR EN PESETAS”; D 
30 INPUT “VALOR DE LA LIBRA EN PESETAS”; L 
40 INPUT “VALOR DEL MARCO EN PESETAS”; M 
50 CLS 
60 STOP 


Las instrucciones 10 a 40 sirven para introducir el valor en pesetas de cada mo- 
neda. 


La instrucción 50 CLS borra el contenido de la pantalla. 
La instrucción 60 STOP detiene la ejecución del programa, justo en ese lugar. Es- 


cribiendo la palabra CONT (y pulsando | ENTER|) el programa prosigue su ejecu- 
ción. 


70 LETA$ = “DOLARES” 

80 LETB$ = “LIBRAS” 

90 LETC$ = “MARCOS” 

100 INPUT “CUANTAS PESETAS VA A CAMBIAR”; P 
110 INPUT “A QUE MONEDA QUIERE CAMBIAR”; M$ 
120 IF M$ = A$ THEN LET C = P/D: GOTO 190 

130 IF M$ = B$ THEN LET € = P/L: GOTO 190 

140 IF M$ = C$ THEN LET C = P/M: GOTO 190 

150 PRINT “NO SE CAMBIA ESTA MONEDA” 

160 WAIT (200) o 160 PAUSE 200 
170 CLS 

180 GOTO 100 


Las instrucciones 70, 80 y 90 asignan las cadenas “DOLARES”, “LIBRAS” y 
“MARCOS” a las variables A$, B$ y C$, respectivamente. 


La 100 y la 110 piden la cantidad de pesetas y la moneda a la que se quiere cam- 
biar estas pesetas. 


Las instrucciones comprendidas entre la 120 y la 140 comparan M$ con AS, B$ y 
C$, y como resultado de esta comparación se calcula el número P de pesetas, pa- 
sando el control a la instrucción 190 para imprimir el resultado. Si la moneda que 
se introduce no es ninguna de las tres, la instrucción 150 imprime un informe al 
respecto. La 160 WAIT (200) detiene la imagen 4 segundos aproximadamente, la 
170 CLS borra la pantalla y la 180 devuelve el control a la 100. 
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190 PRINT “LA CANTIDAD DE”; M$; “ES”; C 

200 WAIT (500) o 200 PAUSE 500 
210 CLS 

220 INPUT “QUIERE SEGUIR SI/NO”; X$ 

230 IF X$ = “SI” THEN GOTO 100 

240 END 


La instrucción 200 WAIT (500) o 200 PAUSE 500 hace permanecer en la pantalla 
el valor del cambio durante 10 segundos aproximadamente, después de borrar la 
pantalla (210 CLS), y, por último, se pregunta si se quiere seguir (instrucción 
220). En caso afirmativo la instrucción 230 envía el control a la 100. Si se intro- 
duce “NO” se detiene la ejecución. 


10. Resumen de las instrucciones y funciones estudiadas 
en este capítulo 


e OPERACIÓN + 


— Significado: concatenación o suma. 

— Formato: A$ + B$ 

— Función: la operación + de cadenas forma una nueva cadena con el con- 
tenido de A$ seguido del de B$. 


e LEN 


— Significado: longitud. 
— Formato: LEN (A$) 
— Función: da el número de caracteres de la cadena almacenada en A$. 


e VAL 


— Significado: valor numérico. 

— Formato: VAL (A$). 

— Función: convierte la cadena numérica almacenada en A$ en su valor nu- 
mérico. 


e STR$ 


— Significado: cadena numérica. 
— Formato: STR$ (N) 
— Función: convierte el número almacenado en N en una cadena numérica. 
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e LEFT$ 


— Significado: subcadena izquierda. 
— Formato: LEFT$ (AS, N) 
— Función: extrae los N primeros caracteres de la cadena almacenada en AS. 


e RIGHTS 


— Significado: subcadena derecha. 
— Formato: RIGHTS$ (AS, N) 
— Función: extrae los N últimos caracteres de la cadena almacenada en AS. 


e MID$ 


— Significado: subcadena interior. 

— Formato: MID$ (A$, P, N) 

— Función: extrae N caracteres de la cadena almacenada en A$ desde la po- 
sición P, siguiendo hacia la derecha. 


e TO 


— Significado: subcadena. 

— Formato: A$ (NTO M) o 

— Función: extrae una subcadena de A$ desde la posición N hasta la posi- 
ción M. 

— Observación: este método de extraer subcadenas se utiliza en algunos mi- 
croordenadores en sustitución de LEFT$, RIGHT$ y MID$. 


eo< 


— Significado: anterior a. 
— Formato: A$ < BS. 
— Función: la cadena almacenada en Af es anterior a la almacenada en B$. 


e CLS 


— Significado: borra. 

— Formato: n CLS. 

— Función: borra la pantalla. 

— Observación: no todos los microordenadores utilizan CLS para borrar la 
pantalla (consultar el manual del correspondiente microordenador). 


e WAIT 
PAUSE 


— Significado: espera, pausa, etc. 
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— Formato: WAIT (N) o bien PAUSE N. 

— Función: detiene la ejecución del programa y retiene la imagen de la pan- 
talla un tiempo, que depende de N. 

— Observaciones: 


1) Utilizar WAIT o PAUSE según el microordenador (consultar el manual). 
2) Algunos microordenadores no poseen esta instrucción. Para conseguir 
el mismo efecto es necesario escribir un bucle, por ejemplo: 
30 FORI|=1TON 
31 NEXT N 


dependiendo el tiempo de espera del valor de N. 


e EJERCICIOS RESUELTOS eres 


TE 


Hacer un programa que lea una cadena y le añada tantos asteriscos 
como longitud tenga. 


Solución: 


10 INPUT “CADENA”; A$ 
20 LETL = LEN (A$) 


30 FORI=1TOL 

40 LETAS=A5+“x*" 

50 NEXT 1 

60 PRINT A$ 

70 END 

Diseñar un programa que lea una cadena y sustituya el primero y el 
último carácter por asteriscos. 

Solución: 


10 INPUT “CADENA”; AS 

20 LETL = LEN (AS) 

30 LETAS = MID$ (AS, 2, L — 2) 
40 LETAS="*" + A5+%s" 

50 PRINT AS 

60 END 


En los microordenadores que utilicen TO para extraer subcadenas, 
sustituir la instrucción 30 por: 


30 LETA$=AS$(2TOL-— 1) 
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pm EJERCICIOS DE RECAPITULACIÓN sos 


Zl, 


22. 


13. 


7.4, 


1.5: 
7.6. 


Jal. 


10, 


¿Qué caracteres imprime el siguiente programa? 


10 LET AS = “FERNANDEZ” 
20 PRINT LEFT$ (AS, 2) 

30 PRINT RIGHTS (AS, 1) 
40 PRINT MID$ (A$, 2, 3) 
50 END 


Escribe las instrucciones necesarias para imprimir el número de caracteres 
de la palabra NABUCODONOSOR. 


¿Qué imprimirá el siguiente programa? 
10 LET AS = “PATA” 

20 LETB$= *TA” 

30 PRINT A$ + B$ 

40 END 


¿Qué instrucciones son incorrectas? ¿Por qué? 


a) 100 IF X = “FECHA” THEN GOTO 500 

b) 200 IF N$ < > A + B THEN PRINT N$ 

c) 300 IF P$ = “1234” THEN LETS =S+ 1 

d) 400 IF G$ = “MAYOR” THEN GOTO 600 

e) 500 IF A$ = “B” AND X > 3 THEN GOTO 800 


¿Qué tiene que ocurrir para que se cumpla la condición P$ > Q$? 


Indica si son correctas las siguientes relaciones entre cadenas. 


a) “PEDRO” > = “JUAN” 

b) "M33" < "M4" 

a “127” >"1135 

d) “4PERRO” <= “37GATO" 


Escribe una o varias instrucciones que expresen la siguiente condición: 


Si N$ = “SI” transferir el control a la línea 70, y si N$ = “NO” transferirlo 
a la 90. 


Sea una cadena Af en la que están almacenados el primer apellido de un 
alumno, a continuación el segundo apellido y después el nombre, cada 
uno con diez caracteres (si algunos no se ocupan se dejan con blancos); 
además está almacenada la edad, que ocupa dos caracteres. Escribe un 
programa que imprima por separado cada una de estas partes de la ca- 
dena. 
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7.10. 


FAZ, 


del3. 


7.14, 


Velo: 


7.16. 


Ave 


7.18. 


2.19, 


7.20. 


Escribe un programa tal que para tres personas cuyos apellidos, nombres y 
edad se conocen y están incluidos en tres cadenas A$, B$ y C$, imprima 
en pantalla su edad media (ver el ejercicio anterior y usar la instrucción 
VAL (X$)). 


Haz un programa que introduzca por separado el día, el mes y el año de 
nacimiento de una persona, forme una única cadena para estos datos e 
imprima el resultado. 


Escribe un programa que permita introducir una palabra de cinco letras y 
después imprima sus caracteres de derecha a izquierda. 


Elabora un programa que invierta una palabra con cualquier número de 
letras. 


Realiza un programa que lea una serie de palabras e imprima solamente 
las que empiecen por la letra A. 


Diseña un programa que lea una serie de palabras e imprima solamente 
las que empiecen por la letra A y terminen con la S. 


Dadas las variables: 


A$ = App” 
B$ = “DIA” 
C$ = "COMIENZA" 
DS ="AL" 


ES = “AMANECER” 
hacer un programa que realice la concatenación de las cadenas, que alma- 
cene las variables e imprima el resultado. 


Rectifica el programa anterior para que al imprimir deje un espacio en 
blanco entre cada dos cadenas. 


Realiza un programa que lea tres cadenas y dé la longitud total de las 
tres. 


Construye un programa que lea una cadena, calcule su longitud y vaya ex- 
trayendo subcadenas desde la izquierda, de longitud 1, de longitud 2, ..., 
y de longitud máxima. 


Haz un programa que lea una cadena y añade blancos (espacios en 
blanco) hasta que alcance la longitud 20. 


Realiza un programa que dé el informe “CORRECTO” si la cadena leída 
tiene longitud inferior a 3 y que imprima “MAL” en caso contrario. 
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7.24, 


H:25: 


Diseña un programa que lea cadenas e imprima el primer carácter y el úl- 
timo hasta que se introduzca la cadena “FIN”. 


Escribe un programa que compruebe si una cadena contiene la letra A. 


Diseña un programa tal que al introducir un texto calcule el número de 
veces que aparece la letra E. 


Escribe un programa que cuente el número total de vocales que hay en un 
texto cualquiera. 


Haz un programa que lea un texto y dé un informe con el número de 
veces que han aparecido cada una de las vocales: A, E, |, O y U. 
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8. Listas numéricas 


l. 


Listas numéricas 


Una lista numérica es un conjunto de números dispuestos uno a conti- 
nuación de otro, tal como muestra el ejemplo. 


El nombre de esta lista es V(I), donde la letra |, llamada 
índice, identifica a cada una de las posiciones de la 
lista. Concretamente, en el ejemplo representado en la 
figura, el índice recorre del 1 al 7, identificando V(1) a 
la primera posición, V(2) a la segunda, y así sucesiva- 
mente, hasta llegar a V(7) que identifica a la última po- 
sición. 


Los valores de una lista se almacenan en las llamadas variables de un índice, 
distinguiéndose así de las variables sin Índice estudiadas anteriormente. 


Ejemplos: 
— Las variables de nombre A(I), N(X) y Z(R) son variables de un índice, 
donde |, X y R son sus correspondientes índices. 


— Las variables de nombre P, H y N son variables sin índice. 


Cómo se almacenan en la memoria los datos de una lista 


Se desea almacenar en la memoria del microordenador las notas de la asigna- 
tura de lengua correspondientes a cuarenta alumnos de una clase. 


El conjunto de estas cuarenta notas se almacena en una variable con un ín- 
dice, y se introducen en la memoria del microordenador mediante el siguiente 
programa: 


E 


10 DIM N (40) 

20 FOR | = 1 TO 40 

30 INPUT “NOTA:”; N(I) 
40 NEXT | 

50 END 


— La instrucción 10 DIM N (40) sirve para especificar la dimensión de la lista 
que se va a introducir en la memoria. Esta instrucción (cuyo nombre pro- 
viene de la palabra inglesa DIMENSION), reserva 40 posiciones seguidas de 
memoria para la variable dimensionada N(|) (*). 


— Con la instrucción 20 se inicializa un bucle de variable | (bucle 20-40). 


— Mediante la instrucción 30 INPUT “NOTA:”; N(I) se introduce por el te- 
clado las cuarenta notas, que se almacenarán en la variable dimensionada 
N(I); ésta abarcará entonces 40 posiciones seguidas de memoria. 


Esa pa 17 


N(1) N(2) NG) N(4) N(5) N(6) N(40) 
O O 
N(0) 


La ejecución de este programa se interrumpe cuarenta veces, que correspon- 
den a las cuarenta ejecuciones de la instrucción 30 INPUT “NOTA:”; NA(I) in- 
cluida en el bucle 20-30. 

Cuando se utilizan listas con un número de datos menor o igual que 10, al- 
gunos microordenadores no exigen que se ponga al principio del programa la 
instrucción DIM N(I). Si, en cambio, el número de datos es mayor que 10, el mi- 
croordenador imprimiría un mensaje de error en el momento de la ejecución. 

Se puede comprobar que los datos están en la memoria mediante la instruc- 
ción PRINT. Si, por ejemplo, tecleamos PRINT N(3) y |ENTER|, inmediata- 


mente aparecerá en la pantalla la nota 4, que corresponde al tercer valor de 
N(). 


(*) Algunos microordenadores reservan las posiciones de memoria empezando a contar desde 
cero. En este ejemplo reservarían, en consecuencia, 41 posiciones. 
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e Ya tenemos almacenados en la memoria las 40 notas en la variable N(|). 
¿Cómo haremos para conseguir que aparezcan todas en la pantalla? Para ello, 
primero borramos la instrucción 50 END del programa anterior y, a continua- 
ción, lo ampliamos con el siguiente conjunto de instrucciones: 


50 FOR | = 1T0 40 
60 PRINT N(I) 

70 NEXT | 

80 END 


Si tecleamos RUN y| ENTER | aparecerán en la pantalla los datos introducidos en 
la memoria uno debajo de otro, o sea, en columna. 


Para que las notas aparecieran en fila habría que añadir un punto y coma a la 
instrucción 60; es decir, ésta tendría que escribirse así: 60 PRINT N (1); 


3. Cómo se almacenan en la memoria los datos de una 
lista con READ y DATA 


El programa anterior se puede sustituir por el siguiente, obteniéndose el mismo 
resultado. 


DIM N(40) 

FOR | = 1 TO 40 
READ N(l) 

NEXT | 


DATA 3, 3, 


DATA 4, 3, 4, 
DATA 10, 3, 5, 
FOR | = 1T0 4 
PRINT N(I) 
NEXT | 

END 
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Con el bloque de instrucciones 5-40 se almacenan en la memoria las cuarenta 
notas en la variable N(I), y con el bloque 80-100 se imprimen en la pantalla. La 


instrucción 110 END finaliza el programa. Para ejecutarlo teclear RUN y| ENTER 


Las ventajas de este programa respecto al anterior, son las siguientes: 
— En primer lugar, permite más autonomía al usuario, pues ahora puede in- 


troducir todas las notas de una sola vez y antes de la ejecución del pro- 
grama, mediante las instrucciones 20, 40, 50, 60 y 70. 


— En segundo lugar, la ejecución de este programa es mucho más rápida, en 


cuanto que no se interrumpe ni una sola vez. (En el anterior se interrumpe 
cuarenta veces.) 


Ejercicios 


8.1. 


8.2. 


8.3. 


8.4. 


Indica cuántas posiciones de memoria abarca la variable dimensionada A (K). 


10 DIM A(18) 

20 FOR K= 1T0 15 
30 INPUT A(K) 

40 NEXT K 

50 END 


¿Qué ocurriría al ejecutar el programa anterior si la instrucción 10 DIM A(18) se 
cambiara por 10 DIM A(13)? 


Haz un programa que produzca los mismos efectos que el transcrito en el ejerci- 
cio 8.1., utilizando las instrucciones READ y DATA. 


Escribe un programa que lea una lista de 12 datos numéricos, es decir, los alma- 
cene en la memoria, y los imprima en la pantalla uno a continuación de otro, en 
fila. 


4. Ordenación de una lista de números 


e Consideremos la siguiente lista numérica: 


Pefofafr! 


Para ordenar sus valores de menor a mayor, o sea, para disponerlos en forma 
creciente se pueden utilizar varios métodos; uno de ellos lo esbozamos a conti- 
nuación: 
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— Comparamos el primer elemento con cada uno de los siguientes. Si en cada 
par comparado el primer elemento es menor o igual, los dejamos como es- 
tán y si es mayor, los intercambiamos. De esta manera se consigue llevar a 
la primera posición de la lista el número más pequeño. 


— A continuación se hace lo mismo, comparando el segundo elemento con 
los siguiente. 


— Este proceso se repite hasta llegar al penúltimo elemento de la lista. A tí- 
tulo de ejemplo, vamos a ordenar la lista arriba transcrita: 


Primera fase: llevar a la primera posición el número menor 


ÁS (AA 
OE EEE EEE 


Segunda fase: llevar a la segunda posición el menor de los tres siguientes 


"SS TAS 
pts aura sta 


Tercera fase: llevar a la tercera posición al menor de los dos siguientes 


LS 
MEE AE 


Si la lista tiene muchos elementos (50, 100, 1000 ó más), el método aplicado 
sería muy laborioso, de ahí que sea necesario realizarlo con el microordenador, 
mediante el siguiente programa: 


REM ORDENACION DE NUMEROS 
INPUT “NUMERO:”; N 

DIM V(N) 

FOR J=1TON 

INPUT “DATO:”; V(J) 


NEXT J 


Con la instrucción 20 se introduce el número N que da el tamaño de la tabla, y 
mediante el bucle 30 — 50 se introducen en la memoria los N datos que com- 
ponen la lista, utilizando la instrucción 40 INPUT “DATO:”; V(J). 
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Una vez almacenados los elementos de la lista en la memoria se procede a su 
ordenación. Esto es lo que hace el siguiente bloque de instrucciones, siguiendo 
el método esbozado en el ejemplo anterior, utilizando dos bucles anidados, el 
exterior de variable ) y el interior de variable K. 


FORJ=1TON — 1 

FORK =J+1TON 

IF V() < = V(K) THEN GOTO 120 
LET A = V()) 

LET V(J) = V(K) 


LET V(K) = A 
NEXT K 
NEXT J 


e tres instrucciones 90, 100 y 110 hacen el intercambio de una pareja de 
atos. 


Para visualizarlo, lo esquematizamos así: 


El bucle exterior (60-130) recorre la lista desde el primer elemento hasta el pe- 
núltimo (de 1 a N-1), y el bucle interior (70-120) la recorre desde el siguiente 
elemento a J, hasta el último (de J + 1 a N); por ejemplo, en la «primera 
vuelta» del bucle exterior (J = 1), al bucle interior recorre la lista desde el se- 
gundo elemento (K =J + 1 = 1 +1 = 2) hasta el último; en la «segunda 
vuelta» (1 = 2), desde el tercero al último, etc. La instrucción 80 es la que 
hace la comparación de cada pareja de números: si cumplen la condición 
(menor o igual), la ejecución salta a la instrucción 120, no realizándose en- 
tonces el intercambio; si el primer elemento del par es mayor que el se- 
gundo, entonces la ejecución sigue con las instrucciones 90, 100 y 110 que 
son las que realizan el intercambio, tal como se indica en el esquema de 
arriba. 


Una vez ordenados los números que componen la lista, se hacen aparecer en 
pantalla mediante el bucle siguiente: 
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140 FORI=1TON 
150 PRINT V(I); * ”; 
160 NEXT | 

170 END 


Observando la instrucción 150 PRINT V(I); * ”; deducimos que los números 
de la lista se imprimirán en fila en la pantalla. 

Ejecución de este programa 

Si la lista que deseamos ordenar es 


CONEA 


al teclear RUN y [ENTER] aparecerá en la pantalla 

NUMERO: 2? 

Se introduce entonces desde el teclado 20, que corresponde a N. 
Inmediatamente aparecerá 

DATO: ? 

Aquí se introducen sucesivamente los veinte elementos de la lista: 8, O, ..., 1. 


Inmediatamente después de introducir el último, obtendremos en la pantalla 
los veinte elementos ordenados de menor a mayor. 


-3-20111822233466789101530 


Ejercicios 


áiLAj>=— __ > o O OOOUOÓ O za 


8.5. Escribe una lista de diez números y ordénalos siguiendo las instrucciones del 
programa anterior. 


8.6. Haz un programa que ordene una lista de números de mayor a menor, o sea, 
en forma decreciente, y los escriba en la pantalla en forma vertical. 
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5. La instrucción DIM (resumen) 


En este capítulo hemos utilizado esta nueva instrucción cuyas características son 
las siguientes: 
— Significado: dimensión. 
— Formato: 
n DIM A (N). 
— Función: reserva posiciones o lugares de la memoria para que en ellos se al- 
macenen los datos de las variables. 


a EJERCICIOS RESUELTOS rr 


1. Escribir un programa que lea un conjunto de números naturales, al- 
macene en una lista los que sean pares y por último imprima esta 


lista. 


Solución: 


10 


20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 


REM GUARDA EN UNA LISTA LOS NUMEROS QUE SEAN PARES E IM- 
PRIME LA LISTA 

READ N 

DIM A(N) 

LET K =1 

FOR | = 1TON 

READ X 

FOR C = X TO -1 STEP -2 

IFC = O THEN LET A(K) = X : LETK=K+ 1 
NEXT C 

NEXT | 

FORL = 1 TO K — 1 

PRINT A(L) 

NEXT L 

DATA 11 

DATA 37, 8, 1, 4, 5, 6, 7, 2, 100, 14, 99 

END 
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— El bucle 70-90 comprueba si el número leído X es par, en cuyo 
caso lo guarda en la lista A(K) y corre el índice de la lista un lugar 
(k = k + 1) para el siguiente número par. 


— Para comprobar si X es par, la instrucción 70 FOR C = X TO -1 
STEP —2 resta 2 sucesivamente al número X. Si C llega a adquirir 
el valor O significa que el número es par y, en caso contrario, que 
es impar. 


— El tope de la instrucción 110 es K — 1 en lugar de K porque al 
terminarse de ejecutar por última vez la instrucción 80 la variable 
K adquiere un valor en una unidad mayor que el número de ele- 
mentos de la lista A(K). 


Elaborar un programa que lea tres conjuntos numéricos, sume sus 
respectivos datos y con las sumas obtenidas forme una lista. A conti- 
nuación ordenará en forma decreciente esta última lista y la impri- 
mirá en la izquierda de la pantalla sin ordenar y a la derecha, orde- 
nada. 


Solución: 


10 REM FORMA UNA LISTA DE SUMAS Y LA ORDENA 
20 DIM S(3) 
30 REM LEE LOS TRES CONJUNTOS Y SUMA 
40 FORI|=1T0 3 
50 READ N 
60 FORJ=1TON 
70 READ X 
80 LET S(I) = S(I) + X 
90 NEXT J 
100 NEXT! 
110 DATA 4 
120 DATA 5.1, 6.3, - 8, 12.48 
130 DATA 4 
140 DATA 3, 1.8, - 40, 53 
150 DATA 6 
160 DATA -1, 0, 5.37, 80, - 4.27, 14 
170 REM HACE UNA COPIA DE LA LISTA S(I) Y LA ORDENA 
180 DIM C (3) 
190 FORI=1T0 3 
200 LET C (1) = S(l) 
210 NEXT | 
220 FORI|=1T02 
230 FORK =1+1T03 
240 IF C(I) > = C(K) THEN GOTO 280 
250 LETD = C(l) 


121 


mo EJERCICIOS DE RECAPITULACIÓN 
8.1. 


8.2. 


LET C(I) = C(K) 
LET C(K) = D 
NEXT K 

NEXT | 

CLS : PRINT 


REM IMPRIME LA LISTA S(I) Y LA C(1) 


FOR | = 1710 3 
PRINT S(1), C(1) 
NEXT | 

END 


— El bloque de instrucciones 30-100 lee los conjuntos numéricos y 


suma sus respectivos valores, almacenándolos en la lista S(l). 


— El bloque de instrucciones 180-210 forma la lista C(I) cuyos va- 


lores coinciden con los de la lista S(l). 


— El bloque de instrucciones 220-290 ordena la lista C(l). 
— Finalmente, el bloque 300-340 da la lista S(l), no ordenada, a la 


izquierda de la pantalla, y la lista C(l), ordenada, a la derecha de 
la pantalla. 


En la memoria de un microordenador se tienen estas variables con sus co- 


rrespondientes valores almacenados: 


Q A(1) 
A A) [4] 
IN AG) 
A(4) 
Escribe el valor que almacenan las siguientes variables: A(A), A(A1), A(A(Q), 
A(A(2)). 
¿Qué aparecerá en pantalla al ejecutar el siguiente programa? 
10 READ N 
20 FORK=1TON 
30 READ X(K) 
40 NEXT K 
50 FORK =1TON 
60 IF X (K) < 0 THEN GOTO 80 
70 PRINT X (K) 
80 NEXT K 
90 DATA 7 
100 DATA 23, - 44, 37, 0, - 14, — 38, 14 
200 END 
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8.3. 


8.4, 


8.5. 


8.6. 


8.7. 


Si se añadiesen al programa anterior las siguientes instrucciones: 


110 DATA 8,4, -3,2, 2,4, 3,8, 5,1 
120 DATA 5,0, -2,4, 3,9, - 8, 4,3, 8,4 


¿qué problemas se presentarían? ¿Cómo se solucionarían? 


Haz un programa que calcule la suma de los 100 primeros elementos de 
una lista T(|). 


Dado un conjunto de valores, elabora un programa que escriba aquéllos 
que se encuentren entre dos dados. 


Se tiene una lista de 20 personas entre los 30 y 69 años. Realiza un pro- 
grama que contabilice el número de personas que se encuentran entre: 


30-39 
40-49 
50-59 
60-69 
e imprime los resultados. 


Sea una lista de veinte elementos, los cuales pueden ser valores positivos, 


negativos o nulos. Haz un programa que imprima el total de elementos po- 
sitivos, el total de negativos y el total de nulos. 
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9. Tablas numéricas 


1. Tablas numéricas 


Un conjunto de números dispuestos en filas y en columnas se llama tabla 
o matriz. 


Consideremos las notas de 40 alumnos, de las 7 asignaturas que cursan. Estas 
notas se pueden registrar en una tabla como la siguiente: 


Asignaturas 


Alumnos 


Tabla V(F, C) 


En la tabla, cada fila corresponde a un alumno, y en ella se registran sus notas en 
las siete asignaturas, y cada columna corresponde a una asignatura, y en ella se 
registran las notas de esta asignatura de los cuarenta alumnos. 


La posición de cada casilla de la tabla está identificada por un par de números, 
el primero corresponde a la fila a que pertenece, y el segundo, a la columna. Así, 
la posición en la que está registrada la nota 9 se identifica por el par (2, 5); esto 
significa que el alumno 2 en la asignatura identificada por el número 5 ha obte- 
nido un 9. 


El conjunto de las posiciones de esta tabla se denomina variable de dos índices. 
El nombre de esta variable es V(F, C), donde F hace referencia a las filas y C a las 
columnas. En este ejemplo, F puede tomar los valores 1, 2, 3, ..., y 40 y C, los va- 
lores 1, 2, 3, 4, 5, 6 y 7; luego, la variable V(F, C) comprende 40 x 7 = 280 ele- 
mentos. 
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2. Almacenamiento de una tabla en la memoria del microorde 
nador 


Los elementos de la tabla anterior se consigue almacenarlos ordenadamente en la 
memoria, mediante un programa que comprende dos bucles, uno exterior de va- 
riable F y otro interior de variable C. 


DIM V(40, 7) 

FOR F = 1 TO 40 

FOR C=1T07 

INPUT “NOTA”; V (F, C) 
NEXT C 


NEXT F 
END 


— La instrucción 10 DIM V(40, 7) específica la dimensión de la tabla que se va a 
almacenar en la memoria, y reserva 40 x 7 = 280 posiciones de memoria 
para la variable de dos índices, de nombre V(F, C). 


— Después de tomar el índice F el valor 1 en la instrucción 20 FOR F = 1 TO 
40, en el bucle interior 30 — 50, el índice C va tomando sucesivamente los va- 
lores 1, 2, 3, ..., y 7; en consecuencia, según se va ejecutando este bucle, se 
almacenan en la memoria las notas en las posiciones V(1,1), V(1,2), V(1,3), ..., 
y V(1,7), es decir, las correspondientes a una fila, o en otras palabras, las siete 
notas del primer alumno. 


— Después de dar el bucle “siete vueltas”, la ejecución pasa nuevamente a la 
instrucción 20, en la que el índice F toma el valor 2; después sigue en el bucle 
30 — 60, mediante el cual introduce en la memoria las notas de la segunda 
fila, es decir, las del segundo alumno. 


— La ejecución continúa hasta que F toma el valor 40, la que permitirá introducir 
las notas del alumno número 40. 


Vemos que este programa almacena las notas ordenadamente en 280 posiciones 


distribuidas en 40 filas y en 7 columnas, lo cual obliga al bucle interior a dar 
“siete vueltas” por cada una de las “cuarenta vueltas” del exterior. 
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e Esta forma de almacenar notas en la memoria tiene el inconveniente de que la 
ejecución se interrumpe 280 veces, al llegar a la instrucción 40 INPUT 
“NOTA:”; V(F, C). Y si suponemos que para introducir una nota empleamos 
en promedio 2 segundos, para introducir las 280, emplearíamos 280 x 2 = 
560 segundos, o sea, 9 min y 20 segundos, lo cual da idea de la lentitud de la 
ejecución. Si este programa hubiera que ejecutarlo varias veces conviene modi- 
ficarlo introduciendo instrucciones READ y DATA. 


DIM V(40, 7) 
FOR F = 1T0 40 
FOR C = 1T0 7 
READ V (F, C) 
NEXT C 

NEXT F 


Aquí se pondrán las sufi- 
cientes instrucciones 
DATA como para que 
contengan en total 40 x 
7 = 280 notas. 


DATA —, —, =, +... 
DATA -,=,=, ««. 


El resultado sería similar siempre que se dispongan adecuadamente los datos 
de las instrucciones DATA. Para comprobarlo se obliga al programa a imprimir 
la tabla, borrando primero la instrucción 150 END y añadiendo después las si- 
guientes: 


FOR F = 1T0O 40 
FOR C = 1T0 7 
PRINT V(F, C) 
NEXT C 

NEXT F 


END 


Ejercicios 


9, 


Escribe la tabla que imprimiría en la pantalla el siguiente programa 
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5 REM TABLA 
10 DIMA (2,3) 
20 FORI=1T02 
30 FORJ=1T03 
40 READ A (I, J) 
50 NEXT J 
60 NEXT | 
70 DATA -1, 0, 0, 3, 0.5, 8 
80 FORI|I=1T02 
90 FORJ=1T03 
100 PRINT A (l, J) 
110 NEXT | 
120 NEXT) 
130 END 


9.2. Haz un programa que almacene en la memoria una tabla de 4 filas y 10 co- 
lumnas y a continuación la escriba en la pantalla. 


3. Programa: promedio de notas por asignatura 


Un conjunto de A alumnos ha cursado X asignaturas, y sus notas quedaron regis- 
tradas en una tabla como la siguiente: 


ICI IES IE 
Eto 
Ptos OO 


aims] TO PT] 


(El número 7, en la posición en que se encuentra, significa que el alumno 3 en 
la asignatura 2 ha obtenido un 7. 


Se desea obtener el promedio de las notas de todos los alumnos en cada asigna- 
tura, es decir, el promedio correspondiente a la Asignatura 1, a la Asignatura 
2, .., y a la Asignatura X. 


Se trata, entonces, de diseñar un programa que calcule el promedio de las notas 
situadas en cada una de las columnas de la tabla. 
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Para ello primeramente las almacenamos en la memoria y, a continuación, calcu- 
laremos el promedio de la Asignatura 1 (1.* columna), de la Asignatura 2 (2.* 
columna), ..., y de la Asignatura X (X columna). 


REM PROMEDIO POR ASIGNATURA 

READ A 

READ X 

DIM N(A, X) 

REM ALMACENAR EN MEMORIA LAS NOTAS 
FOR J = 1TO X 

FOR | = TOA 

READ N (l, J) 

NEXT | 

NEXT J 

REM CALCULO DEL PROMEDIO DE CADA ASIGNATURA 
FOR J = 1TO X 

LETT=0 

FOR | = 1T0A 

LETT=T+N (Il, J) 

NEXT | 

PRINT “EL PROMEDIO DE LA ASIGNATURA”; J; “ES”; T/A 
PRINT 

NEXT J 

DATA 5, 3 

DATA 4, 4, 5, 6, 2,8, 3, 7, 5, 4, 4, 10, 2, 9, 8 
END 


Ejecutando el programa se obtiene el resultado que muestra la pantalla 
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— Las instrucciones 20 READ A y 30 READ X se corresponden con la 200 
DATA 5,3; de modo que la variable A adquiere el valor 5 (número de 
alumnos) y la X, el valor 3 (número de asignaturas). 


— Con los bucles anidados 60-100 y 70-90, se leen por columnas las notas de 
los 5 x 3 = 15 alumnos, es decir, se almacenan en memoria. Dentro de estos 
bucles, la instrucción que lee las notas es la 80 READ N(l, J) la cual se corres- 
ponde con la 210 DATA; en ésta se encuentran las 15 notas. 


— En la instrucción 120 del bucle 120-190 se inicializa la variable ), y mientras 
contiene el valor 1, la variable | del bucle 140-160, va adquiriendo los valores 
del 1 al 5; esto hace que la instrucción 150 LET T = T + N(l, J) sume las 


notas de las casillas ¡[2,1] [3.1] [4,1] y , es decir, las de la Asigna- 
tura 1. 


— Una vez cumplido el bucle interior 140-160, la instrucción 170 calcula e im- 
prime el promedio de las notas correspondientes a la Asignatura 1. 


— Acto seguido, la instrucción 190 devuelve el control a la 120, adquiriendo ) el 
valor 2. A continuación se repite el proceso para la Asginatura 2, y en la si- 
guiente vuelta para la Asignatura 3. 


Para colectivos de alumnos más numerosos y con mayor número de asignaturas 
se puede utilizar este mismo programa, cambiando las instrucciones 200 DATA y 
210 DATA, y añadiendo otras más si fuera necesario. 


Ejercicios 
9.3. Haz un programa similar al anterior que calcule el promedio de las notas por 


alumno en todas sus asignaturas. 


9.4. Los precios de cinco productos en tres ciudades españolas están registrados en 
la tabla. Hacer un programa que dé los precios medios de los distintos pro- 


ductos. 
Valencia La Palmas Soria 
Naranjas 100 140 120 
Plátanos r 100 90 130 
Fresones 90 150 110 
Manzanas 100 90 
90 90 


o EJERCICIOS RESUELTOS ms 


1. 


Hacer un programa que lea e imprima una tabla de 4 filas y 4 co- 
lumnas, forme una lista con los elementos de la diagonal principal de 
la tabla y a continuación la imprima. 


Solución: 


Antes de empezar a escribir el programa hay que tener en cuenta 
que los elementos de la diagonal principal tienen sus dos índices 
iguales. Son los siguientes: 


A(1,1), A(2,2), A(3,3) y A(4,4). 


1 REM FORMA UNA LISTA A PARTIR DE UNA TABLA 
5 CLS: PRINT 

10 DIM A(4,4) : DIM D(4) 

15 PRINT “TABLA” 

20 FOR|I=1T04 

30 FORJ=1T04 

40 READ A(l,J) : PRINT A(1,J); * ”; 
50 IF | =J THEN LET D(I) = A(l,J) 
60 NEXT J 

70 PRINT : PRINT 

80 NEXT | 
100 DATA 1,1,2,2 
110 DATA 3,3,4,4 
120 DATA 5,5,6,6 
130 DATA 7,7,8,8 
140 REM IMPRIME LA LISTA 
150 PRINT “LISTA DIAGONAL” 
160 FORI|=1T04 
170 PRINT D(I); * ”; 
180 NEXT | 
190 END 


La instrucción 50 es la que extrae los datos de la diagonal principal 
de la tabla para formar la lista; estos datos son 1, 3, 6 y 8. 


La distribución de la población y de los ingresos totales en las tres 
provincias de Aragón en 1981 fueron las registradas en la tabla si- 
guiente: 
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Población Ingresos totales 


Huesca 221 761 72610 000 000 
Teruel 173861 44 423 000 000 


Zaragoza 757 543 362 135 000 000 


Hacer un programa que introduzca estos datos en forma de tabla y 
presente en la pantalla los ingresos per cápita (ingresos to- 
tales/población) de cada una de las provincias de Aragón y de toda la 
región. 


Solución: 


5 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 


REM INGRESOS PER CAPITA DE LAS PROVINCIAS DE ARAGON Y 
DE TODA LA REGION 

DIM T(3,2) 

FOR | = 170 3 

FOR J = 1T0 2 

READ T(l, ) 

NEXT J 

NEXT | 

DATA 221761, 72610000000 

DATA 173861, 44423000000 

DATA 757453, 362135000000 

REM CALCULA LOS INGRESOS PER CAPITA Y LOS IMPRIME 

CLS : PRINT 

PRINT “INGRESOS PER CAPITA DE HUESCA:”; T(1, 2)/T(1, 1) 

PRINT “INGRESOS PER CAPITA DE TERUEL:”; T(2, 2)/T(2, 1) 

PRINT “INGRESOS PER CAPITA DE ZARAGOZA:”; T(3, 2I/T(3, 1) 
PRINT “INGRESOS PER CAPITA DE ARAGON:”; (T(1, 2) + T(2, 2) + 


+ T(3, 210T(1, 1) + T(2, 1) + TG, 1) 


160 


END 


mm EJERCICIOS DE RECAPITULACIÓN coa 


9.1. Señala las variables dimensionadas de dos índices correctamente escritas. 


a) 
b) 
) 


) 
e) 


QA 


X(2 +2) 


131 


92. 


Y 


9.4, 


ps EN 


9.6. 


A la siguiente tabla se asigna el nombre A. 


a) ¿Qué clase de variable es A? 
b) ¿Qué valores tienen A(1, 1) y A(3, 1)? 


Cc) SiX= 2, e Y = 3, ¿cuál es el valor de A(X, Y), A(X + 1, Y — 1) y 
A(A(1, 2), A(Q, 1) — 1)? 


a) Escribe un programa que almacene ceros en una variable que repre- 
sente a una tabla de 10 filas y 5 columnas. 


b) Lo mismo que en el apartado a), pero en lugar de almacenar ceros, 
que almacene 1. 


Al hacer una encuesta para anticipar los posibles resultados de unas 
próximas elecciones se han hecho las siguientes preguntas: 


a) ¿A qué candidato votaría? 


1. NOMBRE 1 
2. NOMBRE 2 
3. ENBLANCO 


b) ¿En qué grupo de edad está usted? 


1. Menos de 30 años 
2. 30años o más 


Escribe un programa que recuente los votos conseguidos por cada candi- 
dato y los clasifique por edades. Los datos de los votos se introducirán con 
instrucciones READ y DATA. 


Sugerencia: Se puede definir una variable de dos índices, A(X, Y), repre- 
sentando X el candidato votado e Y la edad del votante. Así, A(1, 1) es un 
voto conseguido por el candidato 1 emitido por un votante con edad me- 
nor de 30 años. 


Dadas las calificaciones de 10 alumnos en 5 asignaturas, escribe un pro- 
grama que obtenga la nota media de cada alumno. 


Amplía el programa correspondiente al ejercicio anterior, para que dé tam- 
bién la media por asignatura. 
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9d, 


9:8. 


Ta. 


9.10. 


3.14 


Una red comercial tiene 10 tiendas y cada tienda 4 departamentos. Escribe 
un programa que lea los valores de las ventas por tienda y departamento 
e imprima: 


1.2 El total de ventas por tienda. 
2.2 El total de ventas por departamento en todas las tiendas. 


Haz un programa que lea una tabla y ponga a cero los elementos que es- 
tén repetidos. 


Escribe un programa que lea dos tablas de igual dimensión y forme una 
tercera sumando los elementos que ocupan la misma posición. 


Diseña un programa que lea una tabla y obtenga el elemento menor de 
cada fila y el elemento mayor de cada columna. 


Escribe un programa que lea una tabla e imprima aquellos elementos que 
sean los menores de su fila y a la vez los mayores de su columna. 
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10. Listas y tablas de cadenas 


1. Listas y tablas de cadenas 


e Así como las listas y tablas numéricas guardan un conjunto de números, las 
listas y tablas de cadenas almacenan un conjunto de cadenas. 


Ejemplos: 


“PITÁGORAS” 


“EUCLIDES” 
“NEWTON” 
“ARQUÍMEDES” 
Lista numérica Lista de cadenas 
Columnas 

F 

¡ 

| 

a 


Tabla numérica 


Columnas 


“DIEZ” 
“URRUTI” 

"280584" 
“OLARRA” 


"2328" | “ALBOR” 


Tabla de cadenas 
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e Analizaremos a continuación un programa que almacena en la memoria una 
lista de 40 apellidos. 


DIM A$ (40) 

FOR = 1 TO 40 

INPUT AS (1) 

NEXT | Para el ZX Spectrum, 
END cambiar por 10 DIM 
A$ (40, 20) 


— En este programa, la instrucción 10 DIM A$ (40) reserva en la memoria 40 
lugares capaces de almacenar 40 cadenas. (En algunos microordenadores, 
como el ZX Spectrum, hay que especificar la longitud máxima de las ca- 
denas. Así, la instrucción 10 DIM A$ (40,-20) reserva 40 lugares de memo- 
ria, cada uno de ellos capaces de almacenar como máximo 20 caracteres.) 


— Con el bucle 20-40 se van cargando en la memoria los cuarenta apellidos 
en la variable A$ (|). 


También aquí se pueden utilizar las instrucciones READ y DATA como alterna- 
tiva a la instrucción INPUT. 


Para que el programa consiga escribir los apellidos en la pantalla habría que 
borrar la instrucción 50 END y, a continuación, completarlo con el siguiente 
bloque de instrucciones: 


50 FORI=1TO 40 
60 PRINT AS (1) 
70 NEXT 1 

80 END 
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Ejercicios 


10.1. Explica qué función cumple el siguiente programa: 


1 


10 
20 
30 
40 
50 
60 
70 
00 


DIM M$ (12) Para el ZX Spectrum cambiar por 10 DIM M$ (12, 10) 
FOR | = 1T0 12 

READ M6 (1) 

NEXT | 

DATA ENERO, FEBRERO, MARZO, ABRIL 

DATA MAYO, JUNIO, JULIO, AGOSTO 

DATA SEPTIEMBRE, OCTUBRE, NOVIEMBRE, DICIEMBRE 

END 


10.2. Escribe un programa que almacene en la memoria los días de la semana y los 
imprima en la pantalla. 


2. Ordenación de cadenas 


Las cadenas se pueden ordenar mediante un procedimiento similar al utilizado en 
las listas numéricas. (Repasar el apartado 4 de este mismo capítulo.) 


e El siguiente programa ordena alfabéticamente los N apellidos de una lista. 


5 
10 
15 
20 
30 
40 
50 
60 


REM ORDENADOR DE APELLIDOS 

READ N 

DIM A$ (N) Para el ZX 
FORJ=1TON Spectrum 
READ AS ()) cambiar 
NEXT J por 15 DIM 
DATA 5 AS (N, 30) 
DATA “ORTEGA”, “ALBENIZ”, “PUIG”, “URRUTI”, 


“FERREIRA” 
100 
110 
120 
130 
140 
150 
160 
170 
200 
210 
220 
230 


FORJ=1TON — 1 
FORK =J+1TON 
IF AS (1) < AS (K) THEN GOTO 160 
LET X$ = AS ()) 

LET AS (1) = AS (K) 
LET AS (K) = X$ 
NEXT K 

NEXT J 

FOR | = 1TO N 
PRINT AS (1) 

NEXT | 

END 
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— Después de leer el valor de N (instrucción 10), la instrucción 15 reserva N 
lugares de memoria para los N apellidos. 


— El bucle 20-40 almacena en la memoria los apellidos de la lista. 
— La instrucción 60 DATA contiene apellidos. 


— Mediante los dos bucles anidados 100-170 y 110-160 se ordenan alfabéti- 
camente los apellidos. Estos bucles funcionan así: 


e Cuando J = 1, el bucle interior hace tomar a K los valores 2, ..., N y 
compara el primer apellido con los siguientes, permutándolos de lugar 
cuando no se cumpla la condición expresada en la instrucción 120. 


Cuando J = 2, K adquiere sucesivamente los valores 3, ..., N comparán- 
dose entonces el apellido que está en segundo lugar con todos los si- 
guientes. 


Este proceso continúa hasta que J adquiere el valor N — 1; en esta situa- 
ción, K adquiere el valor N, comparándose entonces el apellido que está 
en penúltimo lugar con el que se encuentra en el último. 


— Finalmente, el bucle 200-220 escribe en la pantalla los N apellidos orde- 
nados alfabéticamente. 


3. Elección de asignaturas 


En un centro de enseñanza un grupo de alumnos tiene que elegir tres asignaturas 
entre las seis siguientes: 


Historia. 
Música. 
Inglés. 
Francés. 
Alemán. 


Literatura. 


Para concretar ideas, supongamos que el número de alumnos que hace la 
elección es 10, y el resultado de la misma es el registrado en la tabla. 
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pa PREFERENCIA EN 
qu 


Cada casilla de esta tabla contiene el nombre de una asignatura, luego es una ta- 
bla de cadenas de caracteres, que representaremos por T$(A,P), donde el primer 
índice A indica el alumno y el segundo P, la preferencia. Así, el elemento T$(7,2) 
de la tabla indica que el alumno 7 ha elegido en 2.* lugar de preferencia, historia. 
(En el ZX Spectrum es necesario señalar, además, el número máximo de carac- 
teres de las cadenas; como literatura es la palabra más larga y tiene 10 carac- 
teres, la tabla se tendría que indicar así: T$(A,P, 10)). 


Después de registrar las asignaturas elegidas en la tabla, lo que se pretende es 
averiguar cuántos alumnos han elegido cada una de las seis asignaturas, sin tener 
en cuenta el orden de preferencia de cada elección individual. 


El siguiente programa resuelve el problema planteado. 


De 
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DIM T$(10,3) 

DIM X$(6) 

DIM C(6) 

FORA = 1T0 10 

FOR P = 1T0 3 

INPUT T$(A,P) 

NEXT P 

NEXT A 

FOR | = 170 6 

READ X$(1) 

NEXT | 

DATA “HISTORIA”, “MUSICA”, “INGLES” 
DATA “FRANCES”, “ALEMAN”, “LITERATURA” 
FOR A = 1T0 10 

FOR P = 1T0 3 

FOR | = 170 6 

IF TS(A,P) = X$(1) THEN LET C(1) = C(1) + 1 
NEXT | 

NEXT P 

NEXT A 

FOR | = 1T0 6 

PRINT X$(1), C(1) 

NEXT | 

END 


En el ZX Spectrum hay que sustituir las instrucciones 10 y 20 por 


10 DIM T$(10, 3, 10) 
20 DIM X$(6, 10) 


para especificar el número máximo de caracteres de las cadenas. 
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Ejecutando este programa se obtiene en la pantalla el siguiente resultado: 


Para comprender bien el programa centraremos la atención en los distintos blo- 
ques de instrucciones que contiene: 


— Las instrucciones 10, 20 y 30 dimensionan una tabla, una lista de caracteres y 
una lista numérica. 


— Los dos bucles anidados, comprendidos entre las instrucciones 40 y 80 intro- 
ducen en la memoria la tabla T$(A,P). 


— El bucle 90-110 asigna a la lista X$(I) los nombres de las asignaturas; éstos se 
encuentran en las instrucciones DATA, 120 y 130. 


— Los bucles anidados, comprendidos entre las líneas 140 y 200 cuentan el nú- 
mero de alumnos que ha elegido cada asignatura, por medio de los conta- 
dores C(|). 


— Por último, el bucle 210-230 imprime el nombre de cada asignatura X$(l) y el 
número C(I) de alumnos que la eligieron. 


Este programa se puede generalizar para N alumnos, añadiendo la instrucción 
5 INPUT “NUMERO DE ALUMNOS”; N 
y cambiando las instrucciones 10, 40 y 140 por: 
10 DIM T$(N, 3) 


40 FORA=1TON 
140 FORA =1TON 
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e EJERCICIOS RESUELTOS mr 


dls 


Hacer un programa que lea los apellidos de doce personas y su esta- 
tura, y presente estos datos en la pantalla según el siguiente for- 
mato: 


APELLIDO ESTATURA (M) 
CAJAL Ls: 


Solución: 


5 REM APELLIDO, ESTATURA 
8 CLS 
10 DIM AS (12): DIM E (12) 
20 PRINT “APELLIDO”, “ESTATURA (M)” 
MCU rra As 1 
40 FORI|=1T0 12 
50 READ AS (1) 
60 READ E (1) 
70 PRINT AS (1), E (1) 
80 NEXT | 
90 DATA “CAJAL”, 1.75, “RUIZ”, 1.62, “ORTEGA”, 1.80, "CALLEJA”, 
1.65, “SANCHEZ”, 1.75, “COLON”, 1.55. 
100 DATA “PEREZ”, 1.88, “NIETO”, 1.59, “AMOROS”, 1.72, “HIl- 
DALGO”, 1.80, “JUAREZ”, 1.81, “PORTILLO”, 1.73. 
110 END 


Elaborar un programa que lea un conjunto de palabras, las ordene al- 
fabéticamente y las imprima en la pantalla de la siguiente forma: 


PALABRAS ORDENADAS ALFABETICAMENTE 


1. ARMAS 
2. BELLEZA 
3. ESTRELLA 
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Solución: 


1 CLS: PRINT 
5 REM ORDENA ALFABETICAMENTE PALABRAS 

10 READ N 

20 DIM P$ (N) 

30 FORJ=1TON 

40 READ P$ (J) 

50 NEXT J 

60 DATA 7 

70 DATA “ESTRELLA”, “ARMAS”, “BELLEZA”, “MESA”, “YEMA”, 
“CORTEZA”, “CORAL” 

100 PRINT “PALABRAS ORDENADAS ALFABETICAMENTE” 
IU PRINT sicarios $ 
115 PRINT 

120 FORJ=1TON-—1 

130 FORK =J+1TON 

140 IF P$ (1) < P$ (K) THEN GOTO 180 

150 LET X$ = P$ ()) 

160 LET PS (J) = PS (K) 

170 LET PS (K) = X$ 

180 NEXT K 

190 NEXT J 
200 FORJ=1TON 
210 PRINT ( ride pre) 
220 NEXT J 
230 END 


o EJERCICIOS DE RECAPITULACIÓN nenas 


10.1. Escribe un programa que almacene en una variable A$ (1) los meses del 
año. 


10.2. Escribe un programa que almacene en una variable A$ (1) los días de la se- 
mana. 


10.3. Haz un programa que lea varios nombres, forme una lista con todos los 
que empiezan por A y la imprima. 
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10.4. 


10.5. 


10.6. 


10.2. 


Escribe un programa que lea una lista de nombres y elimine los que están 
duplicados. 


Diseñar un programa que lea dos listas de nombres y forme una tercera 
con los nombres comunes a ambas. 


Las siete empresas españolas que registraron mayores ventas en 1982 fue- 
ron las siguientes: 


Eónies Ventas Beneficios Eladio 
p (millones de pesetas) (millones de pesetas) p 


Campsa 1 094 685 
Empetrol 522 615 


Cepsa 381 809 
Telefónica 266 392 
Fasa Renault 184 432 
Iberia 183 347 
Petronor 182 616 


Escribe un programa que almacene estos datos en una tabla de caracteres, 
transforme las ventas, beneficios y número de empleados a valores numé- 
ricos y los almacene en una tabla numérica. Por último, deberá imprimir 
dos columnas, la primera con la relación ventas por empleado (V/E) y la 
segunda con la relación beneficios por empleado (B/E). 


Basándote en el ejercicio anterior diseña un programa que determine en 


qué empresa la relación ventas por empleado (V/E) es mayor y también la 
empresa en la que la relación beneficios por empleado es mayor (B/E). 
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11. Funciones 


1. Algunas funciones del lenguaje Basic 


Además de sumar, restar, multiplicar, dividir, calcular potencias y extraer la raíz 
cuadrada de un número, el microordenador puede realizar otros cálculos utili- 
zando ciertas funciones, algunas de las cuales estudiaremos en este capítulo. 


e Las instrucciones del siguiente programa contienen varias funciones. 


INPUT “INTRODUCE X”; X 
PRINT*X”, X 

PRINT “ABS(X)”, ABS(X) 
PRINT “INT(X)”, INT(X) 
PRINT “SGN(X)”, SGN(X) 


END 


Si ejecutamos este programa (tecleamos RUN y | ENTER|), después de introdu- 
cir el valor —7.25 para X, en la pantalla aparecen los siguientes resultados: 


Corresponde ala instrucción 20 
Corresponde a la instrucción 30 
Corresponde a la instrucción 40 
Corresponde a la instrucción 50 


— La instrucción 20 imprime en la pantalla el número introducido (X = —7.25). 
— La instrucción 30 imprime el valor absoluto X (ABS (-7.25) = 7.25). 

— La instrucción 40 imprime la parte entera de X (INT(-7.25) = -8). 

— La instrucción 50 imprime el signo de X (SGN(-7.25) = —1). 


e Función valor absoluto. 


Esta función se escribe ABS(X), siendo X su argumento. Calcula el valor abso- 
luto de X, es decir, del número o del valor de la expresión que está dentro del 
paréntesis. 


Ejemplos: 
1) ABS (5) = 5; ABS (-0.845) = 0.845; ABS (0) = 0 
2) 


10 LETX=-4 
20 ABS (2*X/1000) 
30 END 


Al ejecutar este programa, la instrucción 20 calcula primero el valor del ar- 
gumento y, a continuación, su valor absoluto: 


ABS (2 * (— 4)/1000) = ABS (— 8/1000) = ABS (— 0.008) = 0.008 
e Función parte entera 


Esta función se escribe INT (X). Calcula el valor entero más próximo a X, y me- 
nor o igual que X. 


Ejemplos: 
INT (5.8) = 5 INT (210.2) =-11 INT (7) = 7 
e Función signo 
Esta función se escribe SGN (X), y da los siguientes valores: 


+ 1 si X es positivo 
0 si X es nulo 
= 1 si X es negativo 
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Ejemplos: 
SGN (250.23) = -1 SGN (0) = 0 SGN (0.0028) =1 


2. Dos aplicaciones de la función INT (X) 


e Cambio de unidades 


El siguiente programa transforma una cantidad expresada en metros en otra 
equivalente expresada en kilómetros y metros. 


5 REMPASA DE METROS A KILOMETROS 
10 INPUT “INTRODUCE LA CANTIDAD EN METROS”; A 
20 PRINT A; “METROS” 


40 LETC=A-—Bx 1000 
50 PRINTB: “KM”; C: “M” 
60 END 


Si al ejecutar el programa introducimos el valor 13728 para A, en la pantalla 
aparecen los siguientes resultados: 


13728 METROS 
13 KM 728 M 
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— La instrucción 30 almacena en B el cociente entero de la división A/1000. 
Para 13728, se tiene: 


B = INT (13728/1000) = INT (13.728) = 13 
— La instrucción 40 almacena en C el resto de la división A/1000. Recordemos 
que D = d : c + r, de donde r = D — d : c. En consecuencia, la instrucción 
40 produce el siguiente resultado: 
C = 13728 — 13 * 1000 = 13728 — 13000 = 728 


— Finalmente, la instrucción 50 imprime en la pantalla 
13 KM 728 M 


e Redondeo de números 


— Redondear un número que contiene varias cifras decimales significa trans- 
formarle en otro con menor cantidad de cifras decimales y cuyo valor sea el 
más próximo posible al número dado. 

Ejemplos: 
A) Al redondear el número 32.283654 a dos cifras decimales se trans- 
forma en 32.28. 


B) Al redondear el número 0.2873222 a dos cifras decimales se trans- 
forma en 0.29. 


— Para redondear números decimales se puede utilizar este programa: 


5 REM REDONDEO A DOS CIFRAS DECIMALES 
10 INPUT “INTRODUCE UN NUMERO DECIMAL”; A 
20 LETA1 = INT (A * 100 + 0.5)/100 
30 PRINT “EL NUMERO REDONDEADO ES”; A1 
40 PRINT 
50 GOTO 10 


60 END 


— Al ejecutar el programa (teclear RUN y |ENTER|), si introducimos 
0.33333 para A, la instrucción 20 efectúa los siguientes cálculos: 


A1 = INT (0.33333 * 100 + 0.5)/100 = INT (33.333 + 0.5)//100 = 
= INT (33.833)/100 = 33/100 = 0.33 
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Después de realizar estos cálculos, la instrucción 30 imprimirá en la pan- 
talla lo siguiente: 


EL NUMERO REDONDEADO ES 0.33 


— Como la instrucción 50 devuelve el control a la 10, podemos introducir 
otro número, por ejemplo, 0.6666. La instrucción 20 realizará entonces 
los siguientes cálculos: 


A1 = INT (0.6666 * 100 + 0.5)/100 = INT (66.66 + 0.5)/100 = 
= INT (67.36)/100 = 67/100 = 0.67 


En la pantalla aparecerá: 


EL NUMERO REDONDEADO ES 0.67 


Ejercicios 


11.1. Haz un programa que exprese una cantidad de segundos, en horas, minutos y 
segundos. 


11.2. Haz un programa que exprese en grados, minutos y segundos la amplitud de 
un ángulo dado en segundos. 
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11.3. Indica qué escribirá en la pantalla el siguiente programa, si en el momento de 
su ejecución se introduce 0.451966. 


10 INPUT “INTRODUCE X”; X 

20 LET Y = INT (X * 1000 + 0.5)/1000 
30 PRINT Y 

30 END 


11.4. Realiza los cálculos indicados en las siguientes expresiones para X = -3.1482. 


a) INT(X * 10 + 0.5)/10 
b) INT (X * 100 + 0.5)/100 
c) INT (X * 1000 + 0.5)/1000 


11.5. Escribe los programas que permitan redondear: 


a) Auna cifra decimal. 
b) A dos cifras decimales. 
c) An cifras decimales. 


3. La función azar 


La atracción que suelen ejercer los juegos de azar se debe en parte a que nunca 
se tiene la seguridad de ganar o perder, cuando se participa en ellos. Esto es lo 
que ocurre, por ejemplo, en el juego del dado. 


¿Cuándo se dice que un juego es de azar o aleatorio? 


Un fenómeno, proceso o experimento se dice que es aleatorio si antes de produ- 
cirse no se puede predecir su resultado. Por ejemplo, el juego del lanzamiento de 
un dado es un experimento aleatorio, porque antes de lanzarlo no se puede afir- 
mar si se obtendrá un punto, dos puntos, ..., o seis puntos. También son procesos 
aleatorios el lanzamiento de una o varias monedas, los juegos que se realizan con 
cartas, el juego de la ruleta, etc. 


Cada vez que se lanza un dado se obtiene un número que se llama aleatorio. De 
forma similar, cada vez que se detiene la ruleta, marca un número, que también 
se denomina aleatorio. 


El microordenador tiene también la capacidad de generar números aleatorios o al 
azar. Esto lo consigue ejecutando la función azar, que en BASIC se escribe RND 
(A), nombre que deriva de la palabra inglesa RANDOM (azar). La letra A es un nú- 
mero determinado, frecuentemente 1. 


El siguiente programa genera cinco números aleatorios comprendidos entre 0 y 1, 
excluido este último. 
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5 REM NUMEROS ALEATORIOS 
10 FORI=1T0O5 


[20 LET X = RND (1) 


30. PRINT X (*) 
40 NEXT! 
50 END 


Después de teclear RUN y | ENTER| obtuvimos los números que se transcriben a 
continuación: 


Conviene advertir que si se ejecuta por segunda vez este programa es muy proba- 
ble que no se obtengan los mismos números, justamente porque el microordena- 
dor genera números aleatorios. Pasa lo mismo que con el juego de la ruleta: lo 
normal es que en jugadas sucesivas no aparezcan los mismos resultados. 


(*) Algunos microordenadores, para conseguir un azar de las características del que se consigue 
con RND (A) necesitan dos instrucciones: RANDOMIZE y RND, ésta sin argumento. RANDO- 
MIZE debe estar al principio del programa y sólo una vez; en cambio, RND se puede utilizar 
todas las veces que sea necesario, en lugar de RND (A). 


5 REM NUMEROS ALEATORIOS 
8 RANDOMIZE 

10 FORI=1TO5 

20 LETX = RND 

30 PRINT X 

40 NEXT | 

50 END 
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4. Simulación de procesos aleatorios 


Con la instrucción RND (A) se pueden hacer programas que simulen fenómenos, 
experimentos y, en general, procesos aleatorios, como por ejemplo el lanzamiento 
de una moneda, el juego de los dados, etc. 


e Jugar a «cara y cruz» 
En el lanzamiento de una moneda caben dos resultados posibles: CARA, al que 
asignaremos el número 1, y CRUZ, al que asignaremos el número 0. Estos dos 
resultados se pueden simular a partir de la función RND (1), de la siguiente ma- 
nera: 
RND (1) da un número aleatorio entre 0 y 1, excluido éste. 
RND (1) + 0,5 da un número aleatorio entre 0.5 y 1.5. 
INT (RND (1) + 0.5) genera cada vez que se ejecuta dos valores aleatorios: el 
0oel1. 


Por ejemplo, si el número aleatorio generado por RND (1) fuera 0.342701, se 
tendría: 

RND (1) 
INT (0.342701 + 0.5) = INT (0.8342701) = 0 
Y si el número aleatorio dado por RND (1) fuera 0.732211, se tendría: 

RND (1) 
INT (0.732211 + 0.5) = INT (1.232211) = 1 
Vemos, pues, que los dos números aleatorios posibles que puede generar la 
función INT (RND (1) + 0.5) son 0 y 1. La aplicaremos, entonces, para jugar a 
cara y cruz. 


5 REM JUGAR A CARA Y CRUZ 
10 PRINT 
20 PRINT “LANZA OTRA VEZ LA MONEDA; PARA ELLO TECLEA 
CONT Y PULSA ENTER” 
30 STOP 
40 LETR = INT (RND (1) + 0.5) 
50 IFR = 1 THEN PRINT: PRINT “CARA”: GOTO 10 


60 PRINT 

70  PRINT “CRUZ” 
80 GOTO 10 

90 END 
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El funcionamiento de este programa es el siguiente: 


— La instrucción 20 escribe la frase escrita entre comillas, y, a continuación, la 
instrucción 30 STOP detiene la ejecución del programa. Para proseguir con 


la ejecución hay que teclear CONT y | ENTER], tal como indica la frase. 
— Se ejecuta entonces la instrucción 40 que genera aleatoriamente el O o el 1. 


— La instrucción 50 escribe en la pantalla CARA si R = 1 y transfiere el con- 
trol a la instrucción 10, ejecutándose otra vez el programa. 


— SIR E 1 la ejecución salta a la instrucción 60 y después a la 70, que im- 
prime CRUZ. 


— La instrucción 80 transfiere el control a 10, ejecutándose otra vez el pro- 
ceso. 


Vemos que cada ejecución equivale al lanzamiento de una moneda, de ahí que 
este programa permita jugar a «cara y cruz». (En lugar de lanzar al aire una 


moneda, se teclea CONT y | ENTER|.) 


Simulación del lanzamiento de un dado 


Cuando se lanza un dado 60 veces, por ejemplo, una cualquiera de sus caras 
puede salir cero, una, dos, ..., e incluso las sesenta veces. Sin embargo, las ex- 
periencias realizadas en multitud de ocasiones y por distintos experimentadores 
confirman que prácticamente nunca sale cero veces, y tampoco sesenta. Lo 
que se ha comprobado es que sale un número de veces próximo a 10. 


Si en lugar de 60, se hicieran 600 lanzamientos, lo que se observaría es que 
cada cara saldría un número de veces próximo a 100. Y si se tuviera paciencia 
para repetir el lanzamiento del dado 6000 veces, se comprobaría que cada 
cara saldría un número de veces próximo a 1 000. 


Para comprobar estos hechos, en lugar del dado podemos utilizar el microorde- 
nador, el cual, mediante un programa muy sencillo, se comporta como un 
dado, pero con la ventaja de que los «lanzamientos» y cómputos los realiza 
con mucha rapidez (*). 


La simulación del lanzamiento del dado la lleva a cabo el microordenador me- 
diante el siguiente programa: 


Si suponemos que en lanzar una vez el dado y en registrar el resultado se tardan 6 segundos, 
en 6 000 lanzamientos se tardarían 361000 segundos, o sea, 10 horas. Un microordenador, en 
cambio, lo puede realizar en menos de 5 minutos. 
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1 REM SIMULACION DEL LANZAMIENTO DE UN DADO 
5 LETU=0:LETD=0:LETT=0:LETC=0:LETCI=0: 
LETS=0 
10 INPUT “INTRODUCE N (NUMERO DE LANZAMIENTOS)”; N 
20 FORI=1TON 
30 LET X = INT (RND (1) x 6 + 1) 
40 IFX=1THENLETU=U+ 1 
50 IFX=2THENLETD=D+ 1 
60 IFX=3THENLETT=T+1 
70 IFX=4THENLETC=C+1 
80 IFX = 5 THEN LET Cl = Cl + 1 
90 IFX=6THENLETS =S+ 1 
100 NEXT | 
110 CLS 
120 PRINT : PRINT “EN”; N; “LANZAMIENTOS HA SALIDO:” 
130 PRINT : PRINT “*”; U; “VECES EL 1” 
140 PRINT : PRINT “x”; D; “VECES EL 2” 
150 PRINT : PRINT “*”; T; “VECES EL 3” 
160 PRINT : PRINT “*”; C; “VECES EL 4” 
170 PRINT : PRINT “*”; Cl; “VECES EL 5" 
180 PRINT : PRINT “*”; S; “VECES EL 6” 
190 END 


— La instrucción que permite al microordenador hacer la simulación es 30 LET 
X = INT (RND (1) * 6 + 1) 
Esta instrucción genera números al azar entre 1 y 6, ambos inclusive. Efecti- 
vamente: 
RND (1) genera un número aleatorio entre O y 1, excluido este último. 
RND (1) * 6 genera un número aleatorio entre O y 6, excluido este último. 
RND (1) * 6 + 1 genera un número aleatorio entre 1 y 7, excluido este úl- 
timo. 
INT (RND (1) * 6 + 1) toma la parte entera de los númefos generados en- 
tre 1 y 7, excluido éste; es decir, genera los números naturales 1, 2, 3, 4, 5 
y 6, que corresponden a las caras del dado. 


— Las instrucciones 40 a 90 contabilizan las veces que sale el 1, 2, 3, 4, 5 y 6, 
respectivamente. 


— Las instrucciones 130 a 180 escriben en la pantalla las veces que han salido 
cada una de las caras. 
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Hemos ejecutado este programa y en el momento de la ejecución introducimos 
el valor 6 000 para N. Los resultados obtenidos aparecen en la fotografía. 


Observar la proximidad de cada uno de los resultados al número 1000. Con- 
viene hacer presente que al ejecutar otra vez este programa los resultados no 
coincidirán exactamente con los que aparecen en la fotografía, debido a que la 
función RND (1) genera números aleatorios. 


Ejercicios 
8.8. Haz un programa, similar al anterior, que simule el lanzamiento de una mo- 
neda. : 
8.9. Indica qué números al azar generan las siguientes instrucciones: 
a) X= INT (RND (1) * 9) 
b) X= INT (RND (1) + 8 + 1) 
c) X= INT (RND (1) * 10 + 11) 


8.10. Escribe un programa que genere al azar los números 10, 11, 12, 13 y 14. 


5. Otras funciones matemáticas 


El lenguaje BASIC posee un conjunto de funciones matemáticas, llamadas de /i- 
brería, cuya definición y características se estudian en distintos cursos de mate- 
máticas. 


Transcribimos a continuación el nombre, la notación algebraica usual, la notación 
en BASIC y el valor de dichas funciones. 
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Notación Notación 

+1siX>0 

Signo sgn x SGN (X) OsiX=0 

=1SX<0 

XsiXx=>0 
Valor absoluto | |x| ABS (X) 

; — Xsix=>0 

Raíz cuadrada Vx SQR (X) fora E 


Parte entera E (x) INT (%) parte entera de X 


Logarítmo lnXsiX> 0 
natural Ln x LN (X) error siX < 0 
o neperiano error si X < 0 


log XsiX> 0 
error siX<0 


potencias del núme- 
ro e, de exponente X 
(e = 2,71828) 


seno de X 


Logaritmo 
decimal Logx LOG (X) 
Seno sen X SIN (X) (X, ángulo 
de radianes) 
coseno de X 
Coseno COS (X) (X, ángulo 
al de radianes) 
tangente de X 
Tangente g TAG (X) (X, ángulo 
de radianes) 
re 2000 anger 
RDN (A) un número aleatorio 
Función azar (RANDOMIZE y entre 0 y 1, 
RND) excluido este último 


6. Definición de funciones 


e Además de las funciones anteriores, el usuario tiene la posibilidad de definir 
otras funciones mediante la instrucción DEF FNA (X). Así, en el siguiente pro- 
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grama se define una función polinómica y se calcula una tabla de valores refe- 
rida a la misma. 


DEF FNA (X) =3*X $ 5-Xf 2+ 10 
FOR X = -2T0 3 

PRINT X, FNA (X) 

NEXT X 

END 


Al ejecutar el programa (teclear RUN y | ENTER]) se obtiene el siguiente resul- 
tado: 


La instrucción 10 define la función f(x) = 3x? — x? + 10, que en BASIC se ex- 
presa así: FNA (X) =3*X $ 5-X 1? 2+ 10. 

Una vez definida FNA (X), los valores que va adquiriendo esta función corres- 
ponden a los que toma el segundo miembro para los distintos valores de X. 


La expresión que se encuentra a la derecha del signo igual puede contener 
cualquier fórmula, inclusive las funciones SIN (X), COS (X), LOG (X), etc. 


e Cada DEF define una sola función, de ahí que en un mismo programa se pue- 
dan definir varias funciones, repitiendo la palabra DEF y haciendo variar la ter- 
cera letra de FN... desde A hasta Z. Así, el programa siguiente define tres fun- 
ciones y calcula una tabla de valores para X = 1, 2, 3 y 4. 
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10 REM DEFINICION DE FUNCIONES 
20 DEF FNA (X) = (1 — X)/(2 + X) 
30 DEF FNB (X) =2 f X 

40 DEF FNC (X) = -1/X 

50 PRINT"X", “FNA (X)”, “ENB (X)”, 


“FNC (X)” 

55 PRINT 

60 FOR X = 1TO 4 

70 PRINT X, FNA (X), FNB (X), FNC (X) 
80 NEXT X 

90 END 


Si se ejecuta este programa (teclear RUN y| ENTER]), se obtiene el siguiente resul- 
tado (en una pantalla de cuatro zonas): 


FNB (X) FNC (X) 
-1 
-.5 
-.333333 
-.25 


Las instrucciones 20, 30 y 40 definen tres funciones diferentes, y la instrucción 
70 imprime sus valores para X = 1, 2, 3 y 4. 


e Algunos microordenadores pueden definir funciones de varias variables, como 
la siguiente 
DEF FNA (X, Y,Z) =X+Y+2Z 
Esta función es de tres variables, y da el valor de la suma de tres números cua- 
lesquiera X, Y y Z. 
e De la misma forma que se definen funciones numéricas, también se pueden 
definir funciones de cadenas, desde FNA$ (X$) hasta FENZ$ (X$). 


El siguiente programa extrae el primero y el último carácter de una cadena y 
los concatena. 
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1 REM CONCATENACION DE INICIAL 


Y FINAL 
10 DEF 


FNAS (X$) = LEFT $ (X$, 1) + 


RIGHTS (X$, 1) 
20 INPUT “INTRODUCE LA PALABRA”; X$ 


30 PRINT X$, FNAS (X$) 
40 GOTO 20 
50 END 


En la instrucción 10 se define la función FNA$ (X$) que concatena el primero 
y el último carácter de X$, la cual se introduce por teclado en la instrucción 20. 


La instrucción 30 imprime la cadena y el resultado de la función. 


e Por último, conviene tener en cuenta que en algunos microordenadores es ne- 
cesario definir DEF FNA (X) antes de que sea utilizada FNA (X), por eso inte- 
resa definir las funciones al principio del programa. 


Ejercicios 


11.11. Indica qué función define el siguiente programa y qué imprime en la pantalla. 


10 
20 
30 
40 
50 


DEF FNR (X) =X f 4 
FOR X = 1 TO 10 
PRINT X, FNR (X) 
NEXT X 

END 


11.12. Escribe un programa que defina una función para calcular los cubos de los 
veinte primeros números naturales, y después los imprima. 


11.13. Haz 


un programa que defina la función polinómica 3x? + 2x + 1 e imprima 


una tabla para valores de X comprendidos entre —-2 y 2, ambos inclusive, in- 
crementando X en 0.1. 


11.14. Explica qué hace el siguiente programa: 


10 
20 
30 
40 
50 
60 
70 


DEF FNA (X) = X 1 2 

DEF FNB (X) =X 1 3 

DEF FNS (X) =X 1 2+X 1 3 
FOR X = 1 TO 10 

PRINT X, ENS (X) 

NEXT X 

END 
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o EJERCICIOS RESUELTOS reas 


1 


PS 
(1 —xX*) 
imprima una tabla de valores comprendidos entre — 4 y 4, dando a x 
incrementos de 0.5. (Con los valores obtenidos se sugiere representar 
gráficamente la función en papel cuadriculado o milimetrado, para 

observar su forma.) 


Hacer un programa que defina la función f(x) = y calcule e 


Solución: 


Esta función presenta una dificultad en el cálculo de la tabla de va- 
lores, ya que cuando x adquiere el valor 1, el denominador (1 — x)? 
se anula ((1 — 1)? = 0? =0). En el momento de presentarse esta si- 
tuación, el microordenador interrumpe la ejecución imprimiendo un 
mensaje de error, referido a la imposibilidad de dividir por cero. En el 
programa, por tanto, hay que prever esta circunstancia para evitar 
que la ejecución quede bloqueada. 

7 REMTABLA DE VALORES DE F(X) = 1/(1 — X)) 1 2 

10 DEFFNA (X) = 1/(1—X) 7 2 

20 PRINT “TABLA DE VAL. DE F(X) = 1/(1 — X) 1 2” 


0 A 

40 PRINT ”. KM Ti 2" 
4 4 

50 PRINT « 5 


60 FORX=-4TO 4 STEP 0.5 
70 IF X= 0 THEN GOTO 90 
80 PRINT 25% TENA OO 
3 4 
90 NEXT X 
100 PRINT ” Ñ 
110 END 


Ejecutando este programa (teclear RUN y | ENTER]|) se obtiene el siguiente 
resultado en la pantalla: 
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Observar que la instrucción 70 IF X = O THEN GOTO 90 evita que el 
microordenador calcule el valor de la función para X = 0. 


2. Jugar a los dados con el microordenador 


Éste es un juego muy simple; consiste en lanzar dos dados y sumar 
los puntos de las caras que salen. Gana el que acumule más puntos 
en N tiradas. 


Un jugador es el «micro», que es el que lanza los dados, o sea, ge- 
nera dos números aleatorios entre 1 y 6, ambos inclusive, y los suma. 
El otro jugador eres tú. 


Solución: 


1 CLS: PRINT 
5 REM JUEGO CON DOS DADOS 

10 LETM=0:LETT=0 

15 INPUT “NUMERO DE LANZAMIENTOS”; N 

20 PRINT “EMPIEZO YO (MICRO). (PARA CONTINUAR TECLEA 
CONT)” 

30 STOP 

40 FORI=1TON 

50 LET X = INT (RND (1) * 6 + 1) 

60 LET Y = INT (RND (1) * 6 + 1) 

70 LETS=X+Y 

80 IF | = INT (1/2) * 2 THEN LETT=T+S: GOTO 140 

9 LETM=M+S 

100 CLS 

105 PRINT “HE OBTENIDO”; S; “PUNTOS” 

110 PRINT “TE TOCA A TI. (TECLEA CONT)” 

120 STOP 

130 GOTO 170 

140 CLS 

145 PRINT “HAS OBTENIDO”; S; “PUNTOS” 

150 PRINT “ME TOCA A MI (TECLEA CONT)” 

160 STOP ; 

170 NEXT | 

180 CLS 

190 PRINT “HE AQUI EL GANADOR:” 
200 PRINT” $ 
210 PRINT “YO HE SACADO”; M; “PUNTOS” 
220 PRINT “Y TU HAS SACADO”; T; “PUNTOS” 
230 END 
— Las instrucciones 50 y 60 generan dos números aleatorios entre 1 
y 6, ambos inclusive (simulan el lanzamiento de los dos dados). La 
instrucción 70 suma los dos números generados (suma los puntos 
de las caras de los dados). 
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— La instrucción 80 averigua si el lanzamiento lo ha hecho el micro 
o tú. Como empieza a jugar el micro, los valores impares de | co- 
rresponden a jugadas de aquél, y los pares, a tus jugadas. Por 
ejemplo, si | = 1, la instrucción 80 actúa así: 


A O 
SMS UN TAO A 2 ia ió 
O 
O 


Como no se cumple la condición, la ejecución sigue en la instruc- 
ción 90 LET M = M + S, que acumule los puntos que va obte- 
niendo el micro, y, a continuación, te cede la vez (instrucción 
110). 


Si, en cambio, n = 2, se tiene: 


zo = UNT AZ/2I 0 2 sita 
512 = INT (1) + Zocnnnninnnninocnnonconcncanoncancorincarancarenoass 


Como se cumple la condición, en esta misma instrucción se acu- 
mulan los puntos que has obtenido, y se transfiere el control a la 
140, para ceder la voz al micro (instrucción 150). 


e Después de llegar | a obtener el valor N, las instrucciones 210 y 220 imprimen 
el total de puntos obtenidos por el micro y por ti. 


a EJERCICIOS DE RECAPITULACIÓN occ 


11.1. Define una función para cada una de las siguientes fórmulas 


b) y=3%-7x+45 
O er 
d) y = x + Elx) 


e) y =x+ |x| + Elx) 


A 
f) y= pex 
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11.2. 


11,3, 


11.4. 


IN PSA 


11.6. 


Wed 


11.8, 


14H 


11.10. 


16111. 


11.12. 


1113. 


Calcula el valor de FNA (6.285), si la función FNA(x) se define así: 

10 DEF FNA (*) = x —INT (x) 

Indica qué precauciones hay que tener a la hora de utilizar las siguientes 
funciones en un programa: 

a) 5 DEF FNB (X) = 1/(2x — 1) 

b) 20 DEF FNC (X) = 5/(x? — 1) 


Escribe un programa que dé el valor absoluto de un número sin utilizar la 
función ABS (X). 


Cuando se lanzan dos monedas los resultados posibles son: 


+, + que se puede expresar así: 0, O 
c, + que se puede expresar así: 1, 0 
+, c que se puede expresar así: 0, 1 
c, C que se puede expresar así: 1, 1 


Haz un programa que simule el lanzamiento de las dos monedas, e im- 
prima el resultado que se produce. 
Haz un programa que defina la función polinómica de tercer grado: 
f(x) = Ax? + Bx? + Cx+0D 
e introduzca los valores A = 3,B=2,C =1yD=0. 
Evalúa esta función desde | = 1 hasta 10, incrementando a x de 1 en 1. 


Elabora un programa que defina la función parte decimal y escriba su 
valor para cualquier X que se introduzca. 


¿Cómo se tiene que definir la función parte decimal si el número X es 
negativo? 


Haz un programa que dé la media de dos números aleatorios, mediante 
la definición de una función. 


Escribe un programa que lea un número y averigúe si es primo o com- 
puesto. 


Haz un programa que obtenga la lista de los números primos menores 
que N. 


Elabora un programa que descomponga un número en sus factores 
primos. 


Escribe un programa que lea dos números y averigúe si son primos entre sí. 
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11.14. 


11:15: 


11.16. 


AAN: 


Realiza un programa que lea dos números y averigúe si tienen factores 
primos comunes. 


Elabora un programa que defina la función f(x) = —0.5x? — x + 6, cal- 
cule una tabla de valores incrementando a x de 0.5 en 0.5 e imprima la 
tabla. 


Escribe un programa que genere e imprima una tabla de valores para la 
función f(x) = sen X, entre X = 0 y X = 6.28, e incrementando a X de 
0.2 en 0.2. (Con la tabla obtenida representar esta función en papel mili- 
metrado.) 


Haz lo mismo que en el ejercicio anterior con la función f(x) = cos x. 
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12. Subrutinas 


1. Subrutinas: instrucciones GOSUB y RETURN 


En algunos programas puede ocurrir que un determinado bloque de instrucciones 
se debe ejecutar varias veces. En estos casos, no es necesario que aparezca repe- 
tido en el programa; basta con escribirlo una sola vez. Para ello se utilizan las ins- 
trucciones GOSUB y RETURN. 


Por ejemplo, en el siguiente programa, al bloque de instrucciones 200, 210, 220 y 
230 se ejecuta tres veces y, sin embargo, sólo aparece escrito una vez. 


10 REM CALCULAR LA SUPERFICIE DEL CIRCULO PARA DISTINTOS 
RADIOS 
20 PRINT “RADIO”, “SUPERFICIE” 
30 LETR=1 
40 GOSUB 200 
LETR = 5.3 
GOSUB 200 
LET R = 8.57 
GOSUB 200 
GOTO 240 


REM SUBRUTINA 
LETS = 3,1415*R f 2 


PRINTR, S 
RETURN 
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La instrucción 40 GOSUB 200 transfiere el control del programa a la instrucción 
200, dando lugar a la ejecución del bloque de instrucciones 200 a 230, llamado 
subrutina. Esta, termina siempre con la instrucción RETURN, que cumple la fun- 
ción de devolver el control a la instrucción siguiente a la GOSUB. 


Las instrucciones 60 GOSUB 200 y 80 GOSUB 200 obligan a ejecutar la subrutina 
otras dos veces más. 


El orden de ejecución del programa es, por tanto, el siguiente: 


10 REM CALCULAR LA SUPERFICIE DEL 
CIRCULO PARA DISTINTOS RADIOS 

20 PRINT “RADIO”, “SUPERFICIE” 

30 LETR=1 

40 GOSUB 200 

A REM SUBRUTINA 
LETS =3.1415*R ) 2 
PRINTR, S 
RETURN 


' 
50 LETR=2 
60 GOSUB 200 

REM SUBRUTINA 

LETS =3.1415*R f 2 
PRINTR, S 

RETURN 


y 
70 LETR=3 
80 GOSUB 200 


REM SUBRUTINA 

LETS =3.1415*R ) 2 
PRINTR, S 

RETURN 


y 
90 GOTO 240 
240 END 


165 


Hay que tener cuidado en colocar al final de cada subrutina la instrucción RE- 
TURN, pues en caso contrario se interrumpe la ejecución, apareciendo a conti- 
nuación un mensaje de error en la pantalla. 


2. Cálculo de la raíz cuadrada de varios números mediante una 
subrutina 


Este programa lee una serie de valores almacenados en una instrucción DATA, 
descarta los negativos y calcula, mediante una subrutina, la raíz cuadrada de los 
positivos y nulos. 


5 REM PROGRAMA CON SUBRUTINA 
10 READ A 
15 IFA = -100 THEN GOTO 340 
20 IF SGN (A) < O THEN GOTO 10 
30 GOSUB 300 
40 GOTO 10 


300 REM SUBRUTINA 
310 LETR = SQR (A) 
320 PRINT “LA RAIZ CUADRADA DE”; A; “ES”; R 


330 RETURN 
340 DATA -1, 6.7, 0, 8, -4.6, 5, 6.2, 2.87 E 10, -100 
350 END 


— La instrucción 15 compara el número leído con -100; si coincide, el control se 
transfiere a 350 END, dándose por terminada la ejecución del programa. En 
caso contrario, la instrucción 20 compara el signo de A con 0; si es -1 (nú- 
mero negativo) se pasa a leer otro número, y si es 0 ó 1 se ejecuta la instruc- 
ción 30 GOSUB 300, que transfiere el control a la subrutina. 


— Una vez terminada de ejecutarse la subrutina, su última instrucción 330 RE- 
TURN envía el control a la 40, y ésta a su vez, a la 10, para volver a leer otro 
dato. 
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Ejercicios 


12.1. Explica cómo funciona el siguiente programa al ser ejecutado. 


10 
20 
30 
40 
50 
60 
200 
210 
220 
330 
310 
320 
400 


INPUT “A ="; A 
INPUT “B ="; B 
GOSUB 200 
GOSUB 300 
PRINT"P =";P;*C=";C 
GOTO 10 

REM PRODUCTO 
LETP=AxB 
RETURN 

REM COCIENTE 
LET C = A/B 
RETURN 

END 


12.2. Indica lo que ocurrirá al ejecutarse el siguiente programa. 


210 
220 


12.3. Escribe un programa con dos subrutinas, una para sumar dos números introdu- 


READ A 
GOSUB 100 

PRINT A, B, C 

REM SUBRUTINA 
LETB=A 12 
LETB=A 1 3 
DATA 3, 2, 1, 8, 4 
GOTO 10 

END 


cidos por el teclado y la otra, para restarlos. 


12.4. Haz un programa que genere un número aleatorio entero comprendido entre O 
y 10, éste excluido, y que permita introducir un número comprendido también 


entre 0 y 10. 


Además, el programa averiguará mediante una subrutina si el número gene- 


rado coincide .con el número introducido. 


3. Un programa que permite elegir entre diversas opciones 


e A veces, un programa se puede dividir en varias partes o módulos (subrutinas), 


en función de tareas más simples que tiene que cumplir. 


Cada módulo es un cierto proceso o tarea con entidad propia. Esto supone 
que el programa en conjunto sea más fácil de entender. Se consigue aún 
mayor claridad utilizando al principio de cada módulo (subrutina) una instruc- 


ción REM que describe la tarea a realizar. 
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e El programa siguiente, que actúa como una sencilla calculadora, aplica lo que 
acabamos de comentar: 


REM CALCULADORA 

PRINT “OPCIONES:” 

PRINT “ESCRIBE:” 

PRINT “1 PARA SUMAR” 
PRINT “2 PARA RESTAR” 
PRINT “3 PARA MULTIPLICAR” 
PRINT “4 PARA DIVIDIR” 
PAUSE 200 

CLS 

INPUT “INTRODUCE LOS NUMEROS”; A, B 
PRINT : PRINT 

INPUT “INTRODUCE LA OPCION”; V 
IF V = 1 THEN GOSUB 1000 
IF V = 2 THEN GOSUB 2000 
IF V = 3 THEN GOSUB 3000 
IF. V = 4 THEN GOSUB 4000 
GOTO 120 

REM SUMA 

CLS 

PRINTA; “+";B;=";A+B 
RETURN 

REM RESTA 

CLS 

PRINT A; “-";B;”=";A—B 
RETURN 

REM PRODUCTO 

CLS 

PRINTA; “x";B;“=";A*B 
RETURN 

REM COCIENTE 

CLS 

PRINTA; “/"; B; “="; A/B 
RETURN 

END 


Las instrucciones 20 a 70 presentan el menú de opciones. 


Las instrucciones 100 a 160 envían a las subrutinas que correspondan, las 
cuales se inician en las instrucciones 1000, 2000, 3000 y 4000. 
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4, 


Se 


La instrucción ON ... GOSUB 


En muchos microordenadores las instrucciones 130 a 160 del programa ante- 
rior se puede sustituir por 


130 ON V GOSUB 1000, 2000, 3000, 4000 


que envía el control a las subrutinas 1000, 2000, 3000 ó 4000, según que V 
valga 1, 2, 3 Ó 4, respectivamente. 


Una instrucción que cumple una función parecida a la anterior, pero no idén- 
tica, es la instrucción ON ... GOTO. Así, 


130 ON V GOTO 1000, 2000, 3000, 4000 


transfiere el control a la instrucción 1000, 2000, 3000 ó 4000, según que V 
valga 1, 2, 3 Ó 4, respectivamente. Sin embargo, utilizando esta instrucción ya 
no es posible volver al lugar de la bifurcación; además, el microordenador daría 
un mensaje de error en el momento de ejecutar la instrucción RETURN. 


Procedimientos 


Ciertos lenguajes de alto nivel, como el Pascal y el Logo, permiten definir un 
proceso (procedure) dentro de un programa y, una vez definido, utilizarlo 
como si fuera una instrucción más. 


Aunque el BASIC no tiene esta posibilidad, puede simularla definiendo una 
variable y asignándole un número correspondiente a una subrutina. Una 
vez hecho esto, en lugar de escribir GOSUB (número) se puede escribir GO- 
SUB (nombre de la variable). 


Este recurso se utiliza en el siguiente programa que dibuja varias rectas hori- 
zontales paralelas, mediante una subrutina llamada RECTA. 


LET RECTA = 1000 

INPUT “NUMERO DE RECTAS”»; N 
CLS 

FOR | =1TON 

GOSUB RECTA 

NEXT | 


GOTO 1050 
REM RECTA 


RETURN 
END 0 


(*) En el ZX Spectrum, en lugar de 1050 END hay que poner 1050 STOP, dado que este microor- 


denador no posee la instrucción END. 
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La instrucción 10 define la variable 
RECTA y almacena en ella el valor 
1000. Esto hace que la instrucción 
50 GOSUB RECTA dibuje una recta 
horizontal cada vez que se ejecuta, 
debido a que transfiere el control a 
la subrutina RECTA (instrucciones 
1000 a 1020). 


Cuando se ejecuta este programa se 
obtiene una familia de rectas para- 
lelas, como muestra la fotografía. 


En el siguiente programa, combinando dos subrutinas llamadas TRIÁNGULO y 
CUADRADO, se logra dibujar una casa. Ésta se repite varias veces en función 
del valor que asignemos a N. 


REM DIBUJA CASAS 

LET TRIANGULO = 500 

LET CUADRADO = 600 

INPUT “NUMERO DE CASAS”; N 
CLS 

FOR | = 1TO N 

GOSUB TRIANGULO 

GOSUB CUADRADO 

NEXT | 

GOTO 660 


REM TRIANGULO 
PRINT * 
PRINT * 
PRINT ” 
PRINT ” 
RETURN 


REM CUADRADO 
PRINT" y 
PRINT “ 


| 
PRINT “ 
PRINT ” . 
RETURN 

END 
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Este programa contiene dos subrutinas, la subrutina TRIÁNGULO (instrucciones 
500 a 550) y la subrutina cuadrado (instrucciones 600 a 650). 


Combinando estas dos subrutinas (instrucciones 60 y 70) se consigue «armar» 
una casa, la cual se puede dibujar tantas veces como se desee, mediante el bucle 
40-70. 


Si se ejecuta este programa y se asigna a N el valor 2, se obtiene en la pantalla lo 
que muestra la fotografía. 


6. Resumen de las instrucciones estudiadas en este capítulo 


e GOSUB n 


— Significado: ir a la subrutina. 

— Formato: n GOSUB n', siendo n' el número de la instrucción en la que 
comienza la subrutina. 

— Función: transfiere el control de la ejecución a la instrucción n'. 


e RETURN 


— Significado: volver. 
— Formato: n' RETURN 
— Función: devuelve el control a la instrucción siguiente a la n GOSUB n'. 
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e ON... GOSUB 


— Significado: según el valor de ... ir a la subrutina. 

— Formato: n ON V GOSUB n,, n,, ... Nx, siendo V una variable numérica, y 
Mm, N, ..., Ny los números de las instrucciones en las cuales comienzan las 
subrutinas. 

— Función: envía el control a las subrutinas que se inician con las instruc- 
ciones n;, n,, ... Mz, según que V valga 1, 2, ..., k, respectivamente. 


e ON... GOTO 


— Significado: según el valor de ... ir a la instrucción. 

— Formato: n ON V GOTO n,, n,, ..., Nx, siendo V una variable numérica, y 
M1, >, ..., N¿ Números de instrucciones. 

— Función: transfiere el control a las instrucciones n;, n, ..., Mi; Según que 
V valga 1, 2, ..., k, respectivamente. 


o EJERCICIOS RESUELTOS ceras 


1. Hacer un programa que genere dos números aleatorios, el primero 
comprendido entre -5 y 5, y el segundo, que deberá ser entero, 
comprendido entre O y 20. Una vez generados estos números, el pro- 
grama preguntará por el signo de su producto y por el de la potencia 
del primero elevado al segundo. Dará opción a introducir la respuesta 
y comprobará, mediante una subrutina, si es correcta. 
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Solución: 


10 REM SIGNO DEL PRODUCTO Y POTENCIA 
20 PRINT “RECUERDA:” 


30 PRINT ” * SIGNO MENOS ="; -1 
40 PRINT ” * NO TIENE SIGNO ="; 0 
50 PRINT ” * SIGNO MAS ="; 1 


60 PRINT : PRINT : PRINT 

70 RANDOMIZE 

80 LETA = RND + (-10) + 5 

90 LET B = INT (RND + 20) 

100 LET SIGNO = SGN (A + B) 
110 PRINT : PRINT 
120 PRINT“A=";A;”B=";B 

130 INPUT ”? CUAL ES EL SIGNO DE A * B?”; S 
140 GOSUB 500 

150 PRINT “PARA CONTINUAR TECLA CONT” 
160 STOP 

170 LET SIGNO = SGN (A / B) 

180 INPUT “CUAL ES EL SIGNO DEA f B?”; S 
190 GOSUB 500 
200 PRINT “PARA CONTINUAR TECLEA CONT” 
210 STOP 
220 CLS : PRINT 
230 GOTO 70 

500 REM COMPRUEBA SI LA RESPUESTA ES CORRECTA 
510 IF SIGNO = S THEN PRINT “CORRECTO” : GOTO 530 
520 PRINT “INCORRECTO” 

530 RETURN 


600 END 


— Las instrucciones 70, 80 y 90 generan los números aleatorios A y 
B y la instrucción 100 calcula el signo del producto A + B. 


— Mediante la instrucción 130 se introduce la respuesta (-1, 0, ó 1) 
y la 140 GOSUB 500 transfiere el control a la subrutina, donde se 
verifica si la respuesta es correcta o incorrecta. 


— Análogamente, las instrucciones 170, 180 y 190 cumplen la 
misma función para la potencia A f B. 


— La instrucción 230 devuelve el control a la 70, para repetir otra 
vez todo el proceso. 
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2. a) Dibujar lo que aparece en la pantalla al ejecutarse el siguiente 
programa para N = 0, 1, 2 y 3. 


b) ¿Por qué da un mensaje de error cuando se introduce el valor 3 
para N? 


5 REM DIBUJA FIGURAS 

10 INPUT “VALOR DEN”; N 
20 CIS 

30 LET PRIMERA FIGURA =300 
40 LET SEGUNDA FIGURA = 400 
50 GOSUB PRIMERA FIGURA 
60 GOSUB SEGUNDA FIGURA 
70 LETN=N+1 

80 ON N GOTO 50, 60, 500 
300 REM PRIMERA FIGURA 
310 PRINT “ E 
320 PRINT “ MA 
330 PRINT ” € 
340 PRINT “ 
350 RETURN 
400 REM SEGUNDA FIGURA 
410 PRINT “ Ñ 
420 PRINT * --" 
430 RETURN 

500 END 


Solución: 
a) ParaN =0 
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da 


? RETURN MITHOUT GOSUB. ERROR IN 350 
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Para N = 1 


Para N = 2 


Para N = 3 


b) 


Cuando se introduce el valor 3 para N, después de dibujarse la 
primera y segunda figuras, N adquiere el valor 4. Con este valor 
se ejecuta la instrucción 80, y como ésta no contiene ningún nú- 
mero de instrucción para N = 4, la ejecución continúa en la si- 
guiente instrucción, que es la 300, entrando en la subrutina, PRI- 
MERA FIGURA, sin haber sido enviada por la instrucción 50 
GOSUB PRIMERA FIGURA; por eso, cuando llega a la instruc- 
ción 350 RETURN, después de dibujar el rectángulo, da el men- 
saje de error. 


— o EJERCICIOS DE RECAPITULACIÓN "eres 


1d, 


12,2. 


Tee 


Completa el programa siguiente con las instrucciones necesarias para que 
al ejecutarlo no dé mensaje de error. 


10 INPUT "A ="; A 
20 INPUT ”B ="; B 
30 PRINT”A ="; A; “B =";B,*“P=";P 
40 GOTO 10 
100 REM PRODUCTO 
110 LETP=A*B 
120 RETURN 
200 END 


Haz un programa que permita introducir dos números, calcule mediante 
cuatro subrutinas la suma, resta, multiplicación y división de dichos nú- 
meros, y después los imprima en una misma línea. 


Repite el programa anterior utilizando las instrucciones READ y DATA. 
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12.4, 


123. 


12.6. 


12.7. 


Escribe lo que imprime el siguiente programa al ser ejecutado. 


10 READA, B, C 

20 GOSUB 100 

30 GOSUB 200 

40 GOSUB 300 

50 GOTO 400 

60 DATA 1,2,3 

100 REM SUBRUTINA 1 

110 PRINT A; B; C 

120 RETURN 

200 REM SUBRUTINA 2 

210 PRINTAf 2;B 1 2;C 12 
220 RETURN 

300 REM SUBRUTINA 3 

310. PRINTA 1 3;B 1 3;C 13 
320 RETURN 
400 END 


Elabora un programa que lea cuatro números positivos y mediante tres 
subrutinas imprima en tres líneas, 


— los cuatro números leídos, — su respectiva parte entera, 
— Su respectiva parte decimal. 


Haz un programa que genere dos números aleatorios enteros A y B del 1 
al 6, ambos inclusive, y mediante una subrutina averigúe cuál de ellos es 
el mayor, dando un mensaje al respecto. El programa permitirá repetir el 
proceso todas las veces que se desee, y la ejecución del mismo deberá 
interrumpirse entre dos procesos sucesivos. 


Dibuja lo que imprimiría el siguiente programa al ser ejecutado, si se in- 
troduce el valor 1 para A. 


di GES 

10 INPUTA 

20 ONA GOSUB 100, 200 

30 IFA > 2 THEN GOTO 300 

40 LETA=A+1 

50 GOTO 20 
100 REM SUBRUTINA 1 
TIO ABRIN TAS EE BERE + o > 
120 RETURN 
200 REM SUBRUTINA 2 
210. PRINT “coc 
220 RETURN 
300 END 
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12.8. 


12.9. 


2.10. 


12,11, 


1242. 


¿Qué imprimirá el programa anterior si se introduce el valor 2 para A? 
¿Y si se introduce el valor 3? 


Cambia la instrucción 20 del programa escrito en el ejercicio 12.7 por 20 
ON A GOTO 100, 200 y analiza lo que aparecería en la pantalla al ser 
ejecutado, con los valores 1, 2 y 3 para A. 


El siguiente programa contiene una subrutina. Dibuja lo que imprime en 
la pantalla al ser ejecutado. 


10 LET PROCEDIMIENTO = 200 
20 FORI=1T03 
30 GOSUB PROCEDIMIENTO 
40 NEXT! 

550 GOTO 300 

200 REM PROCEDIMIENTO 

210 PRINT “*" 

220 PRINT “*x*" 

230 PRINT “*x**" 

240 PRINT “****" 

300 END 


Haz un programa con una subrutina que dibuje dos veces en la pantalla 
la siguiente figura: 


Elabora un programa con tres subrutinas que dibuje tres veces la si- 
guiente figura: 
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13. Impresión ordenada 


1. La pantalla de un microordenador 


La pantalla de un microordenador está dividida en filas y columnas. En este libro 
consideraremos un microordenador con posibilidades de escribir en 22 filas (de la 
0 a la 21) y en 32 columnas (de la O a la 31). 

Como el cursor o punto luminoso que sigue la escritura de los caracteres suele 
encontrarse inicialmente en la posición superior izquierda, a esta posición se asig- 
nan las coordenadas (0, 0), a la superior derecha (0, 31), a la inferior izquierda 
(21, 0) y, por último, a la inferior derecha (21, 31). 


(0, 0) 


Cualquier gráfico que se dibuje en este tipo de pantalla se dice que está en baja 
resolución. 


2. Instrucción PRINT TAB 


e La instrucción PRINT TAB (imprimir tabulando) sirve para indicar al microorde- 
nador en qué columna ha de comenzar a imprimir. 
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Así, por ejemplo, 
PRINT TAB (8); “MAYO” 
imprime la palabra MAYO a partir de la columna 8. 


e En el siguiente programa se aplica la instrucción PRINT TAB para obtener una 
tabla que imprime a partir de la columna 3.*, N números naturales, a partir de 
la 8.* , sus cuadrados, y a partir de la 19.*, sus raíces cuadradas. 


REM CUADRADO Y RAIZ DE UNA SERIE DE NUMEROS 
INPUT “CUANTOS NUMEROS”; N 

PRINT TAB (4); “X”; TAB (8); "X 1 2”; TAB (19); “RAIZ (X)” 
FOR | = 1TO N 

INPUT X 


PRINT TAB (3); X; TAB (8); X 7 2; TAB (19); SQR (X) 
NEXT | 
END 


Si al ejecutar el programa (teclear RUN y [ENTER)), se introducen los datos 
N=4 X=3, X=7, X=8 y X=1!, 

en la pantalla aparecerá: 

Columnas: E 8. 19.2 


RAIZ (X) 


1.7320508 
2.6457513 


2.8284271 
3.3166248 


Este programa funciona de la siguiente manera: 
— La instrucción 10 pide cuántos números se van a introducir. 


— La instrucción 20 imprime la cabecera X, X % 2 y RAÍZ (X) a partir de las co- 
lumnas 3.*, 8.? y 19.* respectivamente, de la fila O. 


— El bucle 30-60 repite N veces las instrucciones 40 y 50. La 40 pide un valor X 
y la 50 imprime ese valor X, su cuadrado X %f 2 y su raíz cuadrada SQR (X), 
en las columnas 3.*, 8.* y 19.*, respectivamente. 
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Ejercicios 


13.1. Haz un programa que escriba como cabecera «NOMBRE» a partir de la co- 
lumna 10, y «APELLIDO», a partir de la 20.?. Además, permitirá introducir 


no 
20 


mbres y apellidos de personas, imprimiéndolos a partir de la columna 10.* y 
2, respectivamente. 


13.2. ¿Qué aparecerá en la pantalla al ejecutar el siguiente programa? ¿Cada vez 


qu 


10 
20 
30 
40 
50 
60 


e se ejecute aparecerá el mismo contenido en la pantalla? 


RANDOMIZE 
FOR | = 1 TO 10 


LET N = INT (10 * RND) 

PRINT TAB (N); “BUENOS DIAS”; TAB (25); N 
NEXT | 

END 


13.3. Haz un programa que imprima una A en cada una de las 22 filas, de tal manera 
que en cada fila la posición de la columna se obtenga de forma aleatoria, entre las 


32 


3. Obt 


posibles. 


ención de gráficos con PRINT TAB 


La instrucción PRINT TAB también se puede utilizar para dibujar gráficos, aunque 
su manejo no siempre es sencillo, debido a que esta instrucción no permite saltar 
filas (para ello es necesario elaborar un programa). 


Aplicaremos la instrucción PRINT TAB para dibujar dos ejes coordenados perpen- 


diculares. 


REM EJES COORDENADOS 
FOR | = 0TO 10 

PRINT TAB (16); "+" 

NEXT | 

FOR J = 0 TO 31 

PRINT “x"; 


NEXT J 

FOR K = 12 T0 21 
PRINT TAB (16); “*” 
NEXT K 

END 
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Si se ejecuta el programa (RUN y | ENTER]), se obtiene lo siguiente: 


Este programa funciona así: 


— El bucle 10-30, de variable |, imprime en la columna 16 asteriscos desde la fila 
Dala 10. 


— El bucle 40-60 dibuja el eje horizontal, poniendo un asterisco en cada co- 
lumna de la fila 11. Esto se consigue gracias a que la instrucción 50 termina 
en punto y coma y, por tanto, cada carácter se escribe a continuación del 
anterior. 


— Por último, el bucle 70-90, de variable K, continúa imprimiendo asteriscos en 
la columna 16, de la fila 12 a la 21. 


Ejercicios 


13.4. Haz un programa que dibuje un asterisco en la fila 11, columna 16. (Para llegar 
a la fila 11, introducir un bucle.) 


13.5. Realiza un programa que llene la columna 12 de asteriscos. 
13.6. Haz un programa que imprima A en toda la fila 13. 
13.7. Escribe un programa que dibuje una recta que vaya de (0, 0) a (21, 21). 
13.8. Haz un programa que dibuje una recta de (0, 31) a (21, 10). 
13.9. ¿Qué figura geométrica dibuja este programa? 

10 PRINTTAB (16); “*” 

20 FORI=1T0 10 

30 PRINT TAB (16 — 1); “*”; TAB (16 + 1); “*” 

40 NEXT 1 

50 FORI|=9T0O 1 SETP -1 

60 PRINT TAB (16 — 1); “*”; TAB (16 + 1); “*” 

70 NEXT | 


80 PRINTTAB (16); “+” 
90 END 
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4. Instrucción PRINT AT 


e La instrucción PRINT AT sirve para imprimir un número o una cadena a partir 
de una fila y columna determinada. Así, por ejemplo: 


PRINT AT 3, 7; “GATO” 
7 


Imprime la palabra GATO 
a partir de la fila 3 y de la 
columna 7. 


PRINT AT 17, 0; N 
0 


| Imprime el valor de N a partir 
| de la fila 17 y de la columna O. 


Conviene tener presente que el formato de esta instrucción puede variar de un 
microordenador a otro (consultar manual). 


e Aplicaremos esta instrucción en un programa que escribe la frase que se intro- 


duce por teclado, a partir de la fila y columna deseada; además subraya dicha 
frase. 
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REM SUBRAYAR 
INPUT “TEXTO”; TS 
INPUT “FILA”; F 
INPUT “COLUMNA”; C 
PRINT AT F, C; TS 


LETAS =" ” 

FOR | =1TO LEN(TS) 
LET AS = AS + *--" 
NEXT | 

PRINTATF +1, C; AS 
END 


Si al ejecutar el programa (teclear RUN y | ENTER]|) se introduce “RIOS DE EU- 
ROPA” como texto, 7 como valor de fila y 5 como valor de columna, se obtiene 
como resultado lo siguiente: 


(O PASO ME Y UR OO EN 31 


—-—-—-— RIOS DE EUROPA 


““JDUAÁWN-=O 


21 
El programa actúa de la siguiente manera: 


— Por medio de las instrucciones 10, 20 y 30 se introduce el texto, la fila y la co- 
lumna a partir de las cuales se desea imprimir dicho texto. 


— La instrucción 40 imprime a partir de la fila F y la columna C el texto almace- 
nado en T$. 


— En la instrucción 50 se define la variable A$, en la cual se va guardando el 
subrayado, a medida que se ejecuta el bucle 60-80. 


— Por último, la instrucción 90 subraya el texto almacenado en T$, imprimiendo 
en la fila F + 1 y a partir de la columna C el subrayado almacenado en AS. 
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Ejercicios 


13.10 Indica qué escribe el siguiente programa, y en qué posición de la pantalla. 


5 REM ESCRIBE EN LA PANTALLA 
10 PRINT 
20 PRINTAT 10,12; “*x*xx*****" 
30 PRINT AT 11,14; “BASIC” 
40 PRINTAT 12,12; “x*xr*xx**" 
50 PRINT 
60 END 


13.11. Haz un programa que lea un nombre y lo imprima 10 veces; la primera 
vez a partir de la fila 1 y columna 1, la segunda a partir de la fila 2 y co- 
lumna 2, y así sucesivamente. 


13.12. Escribe un programa tal que al introducir una frase calcule su longitud L y 
la imprima a partir de la fila L y columna L. 


5. Obtención de gráficos con PRINT AT 


La instrucción PRINT AT permite dibujar gráficos en la pantalla con mayor fa- 
cilidad que la PRINT TAB, debido a que la primera determina la fila y la co- 
lumna en la cual se desea imprimir un carácter (asterisco, punto, etc.), mien- 
tras que la segunda sólo determina la columna. 


Veamos cómo se dibujan dos ejes coordenados utilizando la instrucción PRINT 
AT. 


REM EJES DE COORDENADAS 
FOR J = 0 TO 31 

PRINT AT 11,); *+” 

NEXT J 

FOR | = 0TO 21 


PRINT AT 1, 16; “+” 
NEXT | 
END 
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Al ejecutar este programa (teclear RUN y | ENTER]) aparece en la pantalla lo si- 
guiente: 


En este programa las instrucciones 10, 20 y 30 dibujan el eje horizontal en la fila 
11 de la pantalla y las instrucciones 40, 50 y 60 dibujan el eje vertical en la co- 
lumna 16. 


Ejercicios 


13.13. Haz un programa que dibuje una línea recta de asteriscos en la fila 3. 


13.14. Haz un programa que dibuje un cuadrado de 21 x 21 (no considerar las co- 
lumnas 22 a 31). 


13.15. Escribe un programa que dibuje las diagonales de un cuadrado de 21 x 21. 
13.16. ¿Qué hace el siguiente programa? 


10 FORI=0TO 21 

20 PRINTAT1, 0; “*” 
30 PRINTAT 1, 31; "*"” 
40 NEXT | 

50 FORJ=0TO 31 
60 PRINTATO, J; “*" 
70 PRINTAT 21,); “*” 
80 NEXT J 

90 END 


6. Instrucción LOCATE 


e La instrucción LOCATE permite situar el cursor en una posición determinada 
de la pantalla. Por ejemplo, 


10 LOCATE 20, 10 
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sitúa el cursor en la posición correspondiente a la columna 20 y a la fila 10. 
20 


cursor 


Una vez situado el cursor, se puede imprimir cualquier texto a partir de la co- 
lumna especificada por el primer número. Así, ejecutando estas dos instruc- 
ciones 


10 LOCATE 20, 10 
20 PRINT “ANTONIO” 


se imprime en la pantalla la palabra ANTONIO a partir de la columna 20 y de la 
fila 10. 


A veces, para ganar claridad, conviene poner estas dos instrucciones juntas en 
una misma línea, separadas por dos puntos: 


10 LOCATE 20, 10 : PRINT “ANTONIO” 


Cuando la palabra LOCATE va seguida de un solo número, el cursor se posi- 
ciona en la columna especificada por dicho número. Por ejemplo, ejecutando 


10 LOCATE 15 : PRINT “ARBOL” 
se imprime la palabra ÁRBOL a partir de la columna 15. 


Si en cambio, la palabra LOCATE va seguida de una coma y de un número, el 
cursor se posiciona en la fila especificada por dicho número. Así. 


10 LOCATE, 13 : PRINT “JARDIN” 
imprime la palabra JARDIN en la fila 13. 


En relación a este último caso, conviene advertir que si la anterior instrucción 
PRINT termina en blanco, la palabra JARDÍN se imprime a partir de la columna 
0; si termina en punto y coma (;), se imprime a partir de la siguiente columna 
en la que se imprimió el último carácter; finalmente, si termina en coma, se 
imprime en el siguiente campo. 


Aplicamos la instrucción LOCATE en el siguiente programa para dibujar un 
cuadrado de lado 5 
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REM CUADRADO 

CLS 

LOCATE 15, 10 : PRINT “***xx*" 
LOCATE 15, 11 : PRINT“* +" 
LOCATE 15, 12 : PRINT“* +" 


LOCATE 15, 13 : PRINT“* +" 
LOCATE 15, 14 : PRINT “*x*x*x**" 


Tecleando RUN y | ENTER | se obtiene como resultado el siguiente cuadrado de 
asteriscos: 


0 15 


7. Resumen de las instrucciones estudiadas en este capítulo 


e PRINT TAB 


— Significado: tabula e imprime. 
variables 

— Formato: n PRINT TAB (columna); + expresiones aritméticas 
texto entre comillas 

— Función: escribe a partir de la columna indicada. 
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e PRINT AT 


— Significado: imprime en un punto determinado. 
variables 
— Formato: n PRINT AT fila, columna; y expresiones aritméticas | 
texto entre comillas 
— Función: escribe a partir de la fila y columna que se indica. 
— Observación: el formato de esta instrucción varía mucho según el mi- 
croordenador (consultar manual). 


e LOCATE 


— Significado: localizar, situar. 

— Formato: LOCATE C, F. 

— Función: sitúa el cursor en la posición correspondiente a la columna C y a 
la fila F. 

— Observación: Si sólo interesa especificar la columna, se puede poner LO- 
CATE C 
Si sólo interesa especificar la fila se puede poner LOCATE, F. 


a EJERCICIOS RESUELTOS "eee 


1. Escribir un programa que imprima en la pantalla lo indicado en esta 
figura: 


0 3 15 31 


NOMBRE 


1 APELLIDO 
2 APELLIDO 
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Además, permitirá introducir el nombre y los dos apellidos de una 
persona, los cuales imprimirá a partir de la columna 17, en las filas 2, 
4 y 6, respectivamente. 


Solución: 


10 PRINTAT 2, 3; “NOMBRE..............:” 
20 PRINTAT 4, 3; “1 APELLIDO......:” 
30 PRINT AT 6, 3; “2 APELLIDO......:” 
40 INPUT “NOMBRE”; N$ 

50 INPUT “1 APELLIDO”; A$ 

60 INPUT "2 APELLIDO”; B$ 

70 PRINT AT 2, 17; N$ 

80 PRINT AT 4, 17; A$ 

90 PRINT AT 6, 17; B$ 
100 END 


Diseñar un programa que recuadre un texto que se introdujo previa- 
mente. 


Solución: 


10 INPUT “NOMBRE”; N$ 
20 LETL= LEN (N$) 

30 FORI=0TOL+3 
40 PRINTATO, |; “*"” 

50 PRINTAT4, 1; **" 

60 NEXT | 

70 FORJ=1T0 3 

80 PRINTATJ, 0; “*" 

90 PRINTAT)J,L +3; %*" 
100 NEXT) 
110 PRINTAT 2, 2; N$ 
120 END 


Como la instrucción PRINT TAB imprime fila a fila sin poder saltarse 
ninguna, para representar gráficas de funciones es conveniente ima- 
ginarse la pantalla girada 90%. De este modo, la primera fila (fila 0) 
sería el eje de ordenadas y la primera columna (columna 0), el eje de 
abscisas. 
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Eje de abscisas 


Eje de ordenadas 


21 
Teniendo esto en cuenta hacer un programa que dibuje la gráfica de 
la función seno en posición vertical. 


Solución: 
Para completar un período, los valores del seno tendrán que ir desde 
X=0aX= 2r, y como hay 22 filas, los pasos serán de 2 1/22. 


Como los valores extremos de la función seno son —1 y 1, y la panta- 
lla tiene 32 columnas, multiplicaremos la función por 15 (la mitad 
aproximada de 32). Además, para que la gráfica quede centrada en 
la pantalla tendremos que sumar 15 a cada valor del seno. Luego el 
valor de Y, que determinará en qué columna se deberá imprimir un 
punto o un asterisco, será: 


Y = 15 + 15 « SIN (X) 


10 FORX=0TO0 2 * PI STEP 2 + Pl/22 
20 LETY = 15 + 15 + SIN (X) 

30 PRINT TAB (Y); “+” 

40 NEXT X 

50 END 


Veamos cómo actúan las instrucciones 20 y 30 para algunos valores 
posibles del seno: 


— Si SIN (X) = —1, se tiene: 
Y =15 +15 *(8)= 15 -15='0 
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Luego la instrucción 30 imprimirá un asterisco en la columna O 
(extremo izquierdo de la pantalla). 
— Si SIN (X) = O, se tiene: 
Y=15+15*0=15+0=15 
Luego la instrucción 30 imprimirá un asterisco en la columna 15 
(centro aproximado de la pantalla). 
— Si SIN (X) = 1, se tiene: 
Y =15+15*1=15+15= 30 
Luego la instrucción 30 imprimirá un asterisco en la columna 30 
(extremo derecho de la pantalla). 
Los demás valores del seno se imprimirán entre la columna 0 y 30. 


Modificando las instrucciones 10 y 20 del programa anterior se consi- 
gue resultados similares: 


10 FORX=0T0O 21 

20 LETY=15+ 15 x SIN (X * 2 x Pl/22) 
30 PRINT TAB (Y); "+" 

40 NEXTX 

50 END 


mo EJERCICIOS DE RECAPITULACIÓN sonas 


13.1. ¿Qué instrucciones son erróneas? ¿Por qué? 


a) 100 PRINT TAB (23), “HOLA” 

b) 200 PRINT TAB (10); 1; TAB (25); “N” 
c) 300 PRINT N; TAB (13); “ADIOS” 

d) 400 PRINT TAB (7); X : TAB (9); A$ 


13.2. Utiliza la instrucción PRINT TAB para resolver lo indicado en los apar- 
tados siguientes: 
a) Imprimir la palabra MENÚ a partir de la columna 10. 
b) Imprimir el número 3.1416 y el texto NUMERO PI a partir de las co- 
lumnas 5 y 15 respectivamente. 
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133: 


13.4, 


13.5. 


13.6. 


137, 


13.8. 


133 


13.10, 


15-11, 


13,12. 


Identifica los errores contenidos en el siguiente programa: 


10 INPUT A$ 

20 LETL = LEN (A$) 

30 PRINT AT L, L, A$ 

40 IFL= 1 THEN GOTO 10 
50 PRINT AT L; “FIN” 

60 END 


Haz un programa que vaya admitiendo números y tabule la pantalla para 
que en la columna 10 aparezcan los números que se van introduciendo y 
en la columna 20 el número más pequeño introducido hasta este mo- 
mento. 


Elabora un programa que imprima a partir de la columna 5 el nombre de 
una persona; a partir de la 25, su edad y a partir de la 30, su peso. Parti- 
cularizar el programa para que lea los nombres, edades y pesos de seis 
personas, mediante READ y DATA. 


Escribe un programa que lea un texto y lo imprima en diagonal, es decir, el 
primer carácter en la fila O, columna 0; el segundo carácter en la fila 1, co- 
lumna 1, y así sucesivamente. 


Haz un programa que dibuje con asteriscos, a partir de la columna 6, la 
letra |, con una altura de diez puntos y con una anchura de tres. 


Haz un programa que dibuje la letra A con las mismas condiciones que 
en el programa anterior. 


Por medio de la instrucción PRINT TAB haz un programa que dibuje una V 
que ocupe toda la pantalla, imprimiendo uves. 


Diseña un programa que rellene la parte inferior de la uve de la pantalla 
del ejercicio anterior con uves. 


Realiza un programa que dibuje una M que ocupe toda la pantalla. 


El siguiente programa dibuja la función seno en una pantalla con baja re- 
solución. 


10 FORI=0T0O 31 
20 PRINT AT 10 — INT (10 * SIN (1 * Pl/15); “*" 
30 NEXT | 


Modifica este programa para que dibuje el coseno. 
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13.13. Haz un programa que dibuje la función F (x) = x? utilizando la instruc- 
ción PRINT AT. 


13.14. Diseña un programa que por medio de la instrucción PRINT AT dibuje la 
función F (x) = e*. 
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14. La memoria del 
microordenador 


1. El microordenador por dentro 


Cuando se abre la caja de un microordenador llama la atención, entre otros ele- 
mentos, varias cápsulas de plástico negro con muchas patas de metal. 


AI A A A .a 


Microprocesador 
Memoria RAM 


Memoria ROM 


El microordenador por dentro 


En el interior de dichas cápsulas, liamadas dips, se encuentra un trozo de silicio 
(semiconductor) de muy pequeño tamaño, denominado chip en el que están gra- 
bados muchos circuitos eléctricos, unidos mediante cables a las patas metálicas. 


2. El microprocesador y las memorias ROM y RAM 


e El microprocesador 


Uno de estos chips es el microprocesador, el cual controla todas las acciones 
del microordenador: realiza los cálculos aritméticos y las comparaciones lógicas. 


El lenguaje que «entiende» directamente el microprocesador está constituido 
por impulsos eléctricos y por ausencia de los mismos, en diversas secuencias. 
Este lenguaje se llama lenguaje de máquina. 


e La memoria ROM 


Otro chip importante es la memoria ROM (READ ONLY MEMORY), o memoria 
de sólo lectura. Esta memoria almacena un tipo de información que no se 
modifica en el proceso de ejecución de los programas. Dicha información sólo 
se puede leer, y no desaparece al cesenchufar el microordenador. 


Esta porción de memoria contiene el programa que verifica si se han pulsado 
las teclas, que controla la impresión en la pantalla y que realiza otros trabajos 
vinculados al funcionamiento del microordenador; incluso, hace que aparezca 
en la pantalla el mensaje READY, OK, etc., cuando se conecta el microordena- 
dor. Este programa se llama sistema operativo. 


Muy frecuentemente, y sobre todo en el caso de los pequeños microordena- 
dores personales, la ROM contiene el programa que traduce las instrucciones 
del lenguaje BASIC al lenguaje de máquina. 


En el caso del BASIC, al escribir RUN y pulsar [ENTER], este programa traductor 
(intérprete) empieza a examinar el programa escrito por el usuario. Compara 
las palabras que encuentra con las de su «diccionario», y si encuentra un ca- 
rácter que no comprende (hecho que puede suceder al teclear), deja de inter- 
pretar el programa y da un mensaje de error. Si la palabra está incluida en el 
diccionario, el programa pasa a interpretar la instrucción tecleada. 
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e La memoria RAM 


El chip de la memoria RAM (RANDOM ACCESS MEMORY) o memoria de ac- 
ceso aleatorio permite leer y almacenar información, y ésta desaparece 
cuando se desenchufa el microordenador. 


La RAM está organizada en zonas, diseñadas para almacenar una determinada 
información: el programa BASIC, la imagen que aparecerá en la pantalla, etc. 
Esta distribución en zonas es distinta según el microordenador, y constituye lo 
que se llama mapa de memoria del microordenador. 


3. Cómo está organizada la memoria de un microordenador 


e Las memorias ROM y RAM podemos imaginarlas como una larga lista de casi- 
llas numeradas; a cada una de ellas la llamamos posición de memoria. 


= OOOO En 
ojojejajejeje 


aajajejajaja 


Representación de la memoria 


A su vez, cada posición de memoria podemos considerarla como un conjunto 
de 8 interruptores colocados en fila, pudiendo estar cada uno de ellos abierto 
o cerrado. 


Interruptor 


Cada posición de memoria (una casilla) se puede imaginar 
como un conjunto de 8 interruptores colocados en fila. 
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Si cada interruptor cerrado representa un 1 y cada interruptor abierto, un 0, 
una posición de memoria queda representada por una sucesión de 8 ceros y 
unos. Cada cero o uno se llama bit (dígito binario) y la sucesión de los 8 bits 
se denomina byte (1 byte comprende 8 bits). 


1 0 0 1 1 1 0 1 
Un byte define una posición de memoria. 


En un byte, los bits se numeran del O al 7, de derecha a izquierda, y cada uno 
de ellos, si es 1, representa un valor doble del que corresponde al que se en- 
cuentra inmediatamente a su derecha. Así, en el byte representado en la figura 
siguiente, 


— el bit O representa el valor 1 

— el bit 1 representa el valor 2 

— el bit 2 representa el valor 4 

— el bit 3 representa el valor O (por estar el interruptor abierto) 
— el bit 4 representa el valor 16 

— el bit 5 representa el valor O (por estar el interruptor cerrado) 
— el bit 6 representa el valor 64 

— el bit 7 representa el valor 128 


Bits > O - O O TE E 0 
_—l 

1 0 1 A 1 1 

y l | Los +, y 

13 4 0. 160 4 1 


El valor correspondiente a un byte es el que resulta de la suma de los valores 
de cada uno de los bits. En este ejemplo el valor es 215: 
128+64+0+ 164+44+2+1=215 


e Es evidente que un byte cuyos bits son todos 1, representa el máximo valor po- 
sible. 


Bits> E A E O ES + 
1 1 1 1 1 1 

Loy 4 y, LL y y ly 

128 64 32 16 $6 4 2 

Loy Low | Ll y 

IS O EE O 


Este valor máximo es 255 y se obtiene, como en el caso anterior, sumando los 
valores correspondientes a cada bit: 


128+ 61+32+ 164+8+1+2+1=255 
Vemos que el número expresado en sistema binario por 11111111, en sistema 
decimal se representa por 255. 


e Reciprocamente, ¿en qué estado se encuentran los interruptores correspon- 
dientes a un byte que representa el número binario 10011011? ¿Cómo se re- 
presenta este valor en el sistema decimal? 


Opera) — 
oyaiqe o 
Oyaiqe o 
Opera) — 
OpeuJa) — 
0yaiqe o 
OpeuJa) — 
Opeua) — 


El valor de este byte es 155: 
128+0+0+16+8+0+2+1= 155 
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Ejercicios 


14.1. Indica el valor del byte correspondiente a una posición de memoria cuyos inte- 
rruptores se encuentran en el estado indicado en la figura. 


14.2. Representa en un esquema similar al anterior el valor del byte representado por 
esta secuencia binaria: 10001001. 


14.3. Ayudándote de un esquema con circuitos como el que venimos utilizando, re- 
presenta mediante una secuencia de 8 bits el número 34. 


14.4. Escribe una secuencia binaria cuyo valor corresponda a 254. En esta secuencia, 
¿qué bits es cero, el último de la derecha o el último de la izquierda? 


4. Capacidad de la memoria 


e La capacidad de la memoria de un microordenador viene dada por el 
número de bytes que contienen la ROM y la RAM. 


La capacidad de la memoria suele expresarse en K bytes, siendo 1 K byte = 2*% 
= 1024 bytes (aproximadamente, 1000 bytes). Por ejemplo, cuando se afirma que 
«un microordenador es de 64 K bytes (abreviadamente, 64 K)», se quiere decir 
que su memoria contiene exactamente 64 x 1024 bytes = 65536 bytes (aproxi- 
madamente 64 000 bytes). 


e ¿Cuáles son los bytes libres o disponibles y qué significado tiene esto desde el 
punto de vista del usuario? 


Los bytes libres o disponibles son parte de los de la memoria RAM, dado que 
los de la ROM están ocupados por el programa llamado sistema operativo y 
por el intérprete BASIC; unos y otros se encuentran en las especificaciones téc- 
nicas del microordenador. El número de bytes disponibles suele aparecer escrito 
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q 


en la pantalla nada más conectar el microordenador, tal como muestra la foto- 
grafía. 


¿Qué significa 47870 BYTES FREE? 


En este microordenador de 64 K bytes (65536 bytes), los 47870 bytes libres 
pertenecen a la memoria RAM; los RESTANTES (17666 bytes) pertenecen a la 
parte de la RAM que utiliza el sistema operativo, y a la ROM. 


Sabemos que, en un instante dado, un byte solo puede representar un carácter 
(una letra, un dígito u otro símbolo especial). Luego, disponer de 47870 
bytes libres significa que el número de caracteres que componen las instruc- 
ciones y datos de un programa no puede superar dicho número, pues una vez 
alcanzado éste, la información que se intentara introducir en la memoria no la 
aceptaría el microordenador. 


Paso del sistema binario a decimal 


El sistema de numeración que habitualmente usamos en la vida diaria es el de- 
cimal o de base 10. En este sistema se pueden representar todos los números, 
combinando adecuadamente diez símbolos o cifras: 0, 1, 2, ..., 9 (dígitos deci- 
males). Según la posición que ocupen estas cifras en un número, representan 
distinto valor. Por ejemplo, en el número 38 035 


— 5 vale 5 unidades = 5 x 10% 

— 3 vale 30 unidades = 3 * 10' 

— 0 vale O unidades = 0 + 10? 

— 8 vale 8 000 unidades = 8 * 10* 
— 3 vale 30 000 unidades = 3 * 10* 
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Luego este número se puede expresar en función de las potencias de la base 
10: 


38035 =3* 10448 x* 107+0* 107 + 3 * 101 + 5 * 100 


El sistema binario, en cambio, tiene por base 2, y en este sistema cualquier nú- 
mero se puede representar combinando adecuadamente solo dos símbolos o 
cifras: el O y el 1 (dígitos binarios). 


Dado un número en sistema binario, para expresarlo en sistema decimal hay 
que proceder como en el apartado anterior, multiplicando cada cifra binaria 
por su valor posicional, es decir, por las sucesivas potencias de 2 y, después, 
sumar los valores obtenidos. 


Así, para pasar el número binario 11011111 a sistema decimal hacemos estos 

cálculos: 

11011111=1*274+1x*224+0x*22+1x2*+ 
4122419241924 19+2= 
=1*128+1+*644+0+32+1+*16+ 
+1:*84+1:*44+1+24+1*1= 
=128+ 64+0+16+8+4+24+1=223 


Este proceso lo puede llevar a cabo el microordenador ejecutando el siguiente 
programa (*). 


1 REMPASO DE BINARIO A DECIMAL 
5 LETN=0:LETP=0 
10 INPUT “INTRODUCE UNA SECUENCIA 
DE UNOS Y CEROS”; AS 
20 FOR | = LEN (AS) TO 1 STEP -1 En el ps cid 
30 LETB$ = MIDS (AS, LEN(AS) — P, 1) : 
40 LETN=N + VAL (BS) +2 ) P 30 LET B$ = AS (1TO 1) 


50 LETP=P+1 

60 NEXT | 

70 PRINT A$; “EN BASE DECIMAL SE 
EXPRESA ASI:"; N 

80 END 


(*) El microordenador ZX Spectrum posee una instrucción que pasa directamente un número bi- 


nario a base decimal. Dicha instrucción se escribe BIN, Así 
PRINT BIN 11011111 
imprime en la pantalla 223. 
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— En el momento de la ejecución, la instrucción 10 permite introducir la se- 
cuencia de unos y ceros como cadena. 


— La instrucción 30 extrae cada uno de estos dígitos binarios y los almacena 
temporalmente en la variable de cadena B$. 


— La instrucción 40 pasa a valor numérico lo que almacena B$, multiplica por 
la correspondiente potencia de 2 y almacena el resultado en N. Esto lo hace 
para cada dígito binario, y al concluirse la ejecución del bucle 20-60, N 
llega a almacenar el número en base decimal. 


6. Paso del sistema decimal a binario 


Para pasar un número expresado en base decimal a base binaria se descom- 
pone el número en las sucesivas potencias de 2. Esto se consigue procediendo 
en forma inversa que en el apartado anterior, es decir, dividiendo por las suce- 
sivas potencias de 2, empezando por la inmediata inferior al número dado. 


Ejemplo: Expresar en binario el número 38. 
5]2|w] 9] [27] 
1 0 


Poten- 
cias Cocientes 


Número 
y restos 
sucesivos 


Luego, la expresión binaria del número 38 es 00100110. 


El paso del sistema decimal a binario también se puede hacer aplicando la si- 
guiente regla práctica, que consiste en dividir sucesivamente por 2. 


- E 

iS 18 12. 

Bor $ 02 
ST O 


Ahora escribimos de izquierda a derecha el último cociente, seguido de los 
sucesivos restos 


100110 


Finalmente, para obtener una secuencia de 8 dígitos, añadimos dos ceros a la 
izquierda 


00100110 


e El procedimiento seguido en la regla anterior, lo lleva a cabo el microordena- 
dor mediante el siguiente programa: 


REM PASO DE DECIMAL A BINARIO 

LETBS=" ” 

INPUT “INTRODUCE EL NUMERO EN BASE DECIMAL”; N 
LET | = INT (N/2) 

LETB=N-2x] 

IF B = O THEN LET B$ = “0” + B$: GOTO 70 

LET B$ = "1" + B$ 

LETN =1 

IF N = O THEN GOTO 100 

GOTO 30 

PRINT “EL NUMERO INTRODUCIDO, EN BINARIO ES: ”; B$ 
END 


Veamos cómo funciona este programa: 


— Al iniciarse la ejecución, en la variable B$ se almacena un espacio en 
blanco. 


— La instrucción 20 pide el número N, en base decimal. 
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— Las instrucciones 30 y 40 calculan los restos sucesivos de la división de N 
por 2. Ejemplo, si N = 39, en la primera división se obtiene el siguiente 
resto: 


30 LET | = INT (39/2) = INT (19.5) = 19 
40 LETB=39-2*19= 39 - 38 = 1 


— La instrucción 50 añade por la izquierda un O a la cadena almacenada en 
B$, si se cumple la condición B = 0, y la 60 añade un 1, en caso de no 
cumplirse B = 0. 


— La instrucción 70 guarda en N el siguiente cociente parcial (en el ejemplo es 
19) con el cual se realizará otra división por 2, y así hasta que N sea igual a 
0, condición que comprueba la instrucción 80. En el caso de que la condi- 
ción se cumpla se transfiere el control a la instrucción 100, que imprime el 
número en binario. 


Ejercicios 


14.5. Halla la representación en base decimal de los siguientes bytes: 


00000001 
00000010 
00000011 
00000100 
00000101 


14.6. Encuentra todas las secuencias binarias comprendidas entre 11111001 y 
11111111, 


14.7. Haz un programa que imprima las representaciones en base decimal de los 
números binarios 11110001, 01101101, 01010101, 10101010, 01111110 y 
10000001. (Este programa puede obtenerse mediante una sencilla modifica- 
ción del transcrito en el apartado 4 de este capítulo.) 

14.8. Halla la representación en binario de los números naturales 0, 1, 2, ..., 9. 


14.9. Halla la representación en binario del número 248. 


14.10. Modificando el programa estudiado en el apartado 5 de este capítulo, impri- 
mir en la pantalla la representación en binario de los números 245 a 255. 
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7. Instrucciones PEEK y POKE 


En la memoria de un microordenador todo está muy ordenado; cada una 
de sus posiciones («casillas») tiene asignado un número llamado direc- 
ción. 

El microordenador, para localizar la información almacenada en una posi- 
ción de memoria busca su dirección. 


e El acceso a una determinada posición de la memoria RAM o ROM se 
consigue mediante la instrucción PEEK (N), siendo N la dirección de la 
posición de la memoria cuyo contenido se desea averiguar. 

En concreto, la instrucción PEEK (N) suministra lo almacenado en la posición 
de la memoria de dirección N. 


Aplicamos esta instrucción en el siguiente programa: 


10 INPUT “INTRODUCE UNA DIRECCION”; N 
20 LETP = PEEK (N) 


30 PRINT “EN LA POSICION DE DIRECCION”; N; “SE GUARDA”; P 
40 GOTO 10 
50 END 


Al ejecutar este programa en un microordenador y en un momento determi- 
nado, al introducir el número 48728 obtuvimos el siguiente resultado en la 
pantalla: 

EN LA POSICIÓN DE DIRECCIÓN 48728 SE GUARDA 32 


e La instrucción POKE permite modificar el contenido de una determinada posi- 
ción de la memoria RAM, almacenando en la misma el valor de un byte, o sea, 
un número comprendido entre 0 y 255. 
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Su formato es: 
n POKE (dirección), (número contenido) 


Por ejemplo, la instrucción 
35 POKE 31000, 56 


almacena en la posición de memoria de dirección 31000, el número 56. Esto 
se puede comprobar escribiendo 


PRINT PEEK (31000) 
Nada más pulsar la tecla | ENTER| aparecerá en la pantalla 56. 


El conjunto de caracteres que maneja el microordenador 


Las letras, los dígitos y los signos de puntuación y de las operaciones aritmé- 
ticas que pueden aparecer en una cadena, forman parte del conjunto de carac- 
teres de que dispone el microordenador. 


Estos caracteres se pueden representar con los 8 bits que forman un byte. El 
procedimiento que se utiliza para ello es parecido al del código Morse, sola- 
mente que en lugar de combinarse puntos y rayas, se combinan unos y 
ceros. Cada combinación de unos y ceros de un byte representará un carác- 
ter. Por ejemplo, en un sistema de codificación que enseguida mencionaremos, 
la letra B está representada por el estado del byte correspondiente a la si- 
guiente combinación binaria: 


Un byte puede representar 256 caracteres diferentes debido a que con sus 8 
bits se pueden hacer 256 combinaciones de ceros y unos (de 00000000 + 0 a 
1114111 = 255): 
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e El sistema de codificación que utilizan la mayoría de los microordenadores es el 


código ASCII (American Standard Code for Information Interchange). 


Código 


CÓDIGOS A.S.C.1.I. (decimal) 


Caracter 


Space 


YN 0. 0U1 fp 0. nn 


Código 


100 


Carácter 
0 


uu 


NM << XxX == <X E + N >= O 


TO y) OQ 5 => — Y/ — 
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Código Carácter Código Carácter 


64 a 111 0 
65 A 112 p 
66 B 113 q 
67 C 114 r 
68 D 115 5 
69 E 116 t 
70 F 117 u 
71 G 118 v 
72 . 119 w 
73 120 X 


De las 256 combinaciones diferentes de 8 bits, aquí solamente aparecen las com- 
prendidas entre 00100000 (en base diez, 32) y 01111101 (en base diez, 125), que 
son comunes a todos los microordenadores. 
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9. Instrucciones ASC (o CODE) y CHR$ 


e La instrucción BASIC ASC (o CODE) imprime el número del código ASCII co- 
rrespondiente al primer carácter de una cadena. Así, el programa 


10 INPUT K$ 

20 PRINT “EL NUMERO ASCII DE SU PRIMER CARACTER ES”; ASC (K$) 
30 GOTO 10 

40 END 


imprime en la pantalla el númedo del código ASCII correspondiente al primer ca- 
rácter de la cadena K$. Si, por ejemplo, introducimos la cadena “BELLA”, aparece 
en la pantalla lo siguiente: 


EL NÚMERO ASCII DE SU PRIMER CARÁCTER ES 66 
porque 66 es el número ASCII correspondiente a la letra B. 


e La instrucción CHR$ produce un efecto opuesto a ASC (o CODE). Así, el pro- 
grama. 


FOR N = 65 TO 90 
PRINT CHR$ (N); * ”; 
NEXT N 

END 


imprime las letras mayúsculas del alfabeto, dado que los números ASCII 65 a 
90, corresponden a las letras A a Z, respectivamente. 


Los números ASCII de las letras minúsculas se obtienen sumando 32 a sus co- 
rrespondientes mayúsculas. Así, el número ASCII de a es 97 y el de z, 122. 
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e La correspondencia entre cada símbolo gráfico y un número del código ASCII 
permite ordenar cadenas e interpretar los signos < y > intercalados entre ellas. 
Así, el microordenador interpreta que 


A<B (Aes anterior a B) 


porque sus correspondientes números del código ASCII están en esa misma re- 
lación de orden: 


65 < 06 
| y 
E 
Por la misma razón se cumplen las siguientes relaciones: 
A < a y A > 9 
y V y y 
65 < Y 65 => 5 
Ejercicios 
14.11. Explica lo que hace el siguiente programa: 


14.12. 


14.13, 


14.14, 


14.15. 


14.16. 


10 FORI=0TO9 
20 POKE 34230 + 1, | 
30 NEXT 1 

40 END 


Haz un programa que almacene en posiciones de la memoria de dirección 
consecutiva las letras mayúsculas A, B, C, D, E y F. 


Indica qué imprimiría en la pantalla el siguiente programa: 


10 FORI=1TO5 

20 READ N 

30 LETP = PEEK (N) 

40 PRINTP 

50 NEXT | 

60 DATA 42627, 43700, 43701, 43702, 44800 
70 END 


Escribe un programa que imprima en la pantalla los números del código ASCII 
correspondientes a las letras A, a, B, b, c y C. 


Fijándote en los valores obtenidos en el ejercicio anterior ordena de anterior 
a posterior (<), las palabras siguientes: Bernardo, azucena, Antonio, abeto, 
canica, Claudio. 


Haz un programa que imprima en la pantalla los caracteres cuyos números 
ASCII son 56, 57, 58, 59 y 60. 
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10. Resumen de las instrucciones estudiadas en este capítulo 


e PEEK 


— Significado: extrae (“pica”). 
— Formato: PEEK (N), siendo N una dirección. 
— Función: extrae el contenido de la posición de memoria de dirección N. 


e POKE 


— Significado: almacena. 

— Formato: n POKE (dirección), [nuevo contenido) 

— Función: almacena en la posición de memoria de la dirección indicada, el 
valor de un byte (un número comprendido entre 0 y 255). 


e ASC (o CODE) 


— Significado: código ASCI!. 

— Formato: ASC (A$). 

— Función: da el número del código ASCII correspondiente al primer carác- 
ter de la cadena AS. 


e CHR$ 


— Significado: carácter. 

— Formato: CHR$ (N). 

— Función: es opuesta a la que cumple la instrucción ASC (A$): da el sím- 
bolo que corresponde al número N del código ASCI!. 


a EJERCICIOS RESUELTOS sa 


1. Obtener la secuencia binaria que representa a la letra p minúscula, 
que en el código ASCII le corresponde el número 112. 


Solución: 
Pasamos el número 112, escrito en base decimal, a base binaria. 


M2 Ze. 
12 56812 -— 
0. 16 28.2 
SE Mila 
CE 1 e A 
poa [2 
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Ahora escribimos de izquierda a derecha el último cociente, seguido 
de los sucesivos restos: 


1110000 


Finalmente, para obtener una secuencia de 8 bits, añadimos un cero 
a la izquierda: 


01110000 


2. Hacer un programa que imprima los números del código ASCII co- 
rrespondientes a los números naturales, 0, 1, 2, ..., 9. 


Solución: 


10 
20 
30 
40 
50 
60 
70 


REM NUMEROS ASCII DE O, 1, 2, ..., 9 

FOR | = 1 TO 10 

READ N$ 

PRINT ASC (N$); ” ”; 

NEXT | 

DATA CO e a o 
END 


oo EJERCICIOS DE RECAPITULACIÓN coca 


14.1. 


10 
20 
30 
40 
50 
60 
70 
80 
90 


Escribe lo que imprimiría el siguiente programa al ser ejecutado: 


READ A$ 

FOR | = LEN (A$) TO 1 STEP —1 

LET B$ = MID$ (AS, LEN (AS) — P, 1) 
LETN = N + VAL (B$) x 2 1 P 


LETP=P+1 

NEXT | 

PRINT A$; “EQUIVALE A”; N 
GOTO 10 


DATA “10101010”, “01010101”, “11111000”, “00011111” 
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14.2. El siguiente programa pasa a sistema binario, números expresados en 
base decimal. Explica, instrucción a instrucción, su funcionamiento. 


14.3, 


14.4, 


14.5. 


14.6. 


14.7. 


14.8. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
135 
140 
150 


READ N 

FOR | =1TON 

LETBS=" ” 

READ A 

LET K = INT (4/2) 
LETB=A-2*xK 

IF B = O THEN LET B$ = “0” + B$ 
LETB$ = "1" + B$ 


LETA = K 

IF A = O THEN GOTO 

GOTO 50 

PRINT A; “EN BINARIO ES:” B$ 
NEXT | 

DATA 5 

DATA 25, 125, 50, 200, 10 
END 


Explica qué hace la siguiente instrucción: 
17 POKE 25328, 29 


Introduce en la memoria los diez primeros números naturales impares en 
posiciones de memoria, tal que sus direcciones sean consecutivas, empe- 
zando por la de dirección 45000. 


Explica qué se obtiene en la pantalla si se escribe la siguiente expresión 
PRINT PEEK (45005) 


Haz un programa que verifique si en las posiciones de memoria indicadas 
en el ejercicio 4 se encuentran almacenados los diez primeros números 
naturales impares. 


Explica la función que cumple la instrucción ASC (o CODE). 


Indica qué se obtiene en la pantalla al ejecutar el siguiente programa: 


10 
20 
30 
40 
50 
60 


READ CS 

LET A = ASC (C$) 

PRINTA 

GOTO 10 

e 
END 
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14.9. 


14.10. 


14.11. 


Escribe un programa que halle el número del código ASCII correspon- 
diente a las letras | y L, y según el resultado obtenido después de ejecu- 
tar el programa, indica qué símbolo pondrías entre las siguientes pala- 
bras: 


Luis... laberinto 


Indica qué se obtiene en la pantalla cuando se ejecuta el siguiente pro- 
grama. (Consulta el código ASCII en el apartado 7 de este capítulo). 

10 READN 

20 PRINT “EL CARACTER ASCII QUE CORRESPONDE 

AL NUMERO”; N; “ES”; CHR$ (N) 

30 DATA 100 

40 END 


Realiza un programa que haga aparecer en la pantalla los caracteres del 
código ASCII correspondientes a los números 33 a 125, dispuestos en la 
siguiente forma: 

NÚMERO CARÁCTER 


33 
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Apéndice A 


GRABACIÓN Y REPRODUCCIÓN DE PROGRAMAS EN CASETE 


Un programa que se ha introducido en la memoria RAM (Random Access Me- 
mory) de un microordenador se pierde cuando éste se desconecta. Sin embargo, 
este programa puede conservarse utilizando un dispositivo de memoria externa. 


El sistema de almacenamiento de programas más barato es el que se realiza en 
cintas magnéticas con ayuda de un grabador-reproductor de casetes. Este sis- 
tema, aunque no es tan fiable y rápido como el basado en discos, resulta satisfac- 
torio en muchas ocasiones. 


Grabación de programas 


Para grabar un programa en una casete hay que llevar a cabo las siguientes ac- 
ciones: 


1.2 Conectar correctamente el microordenador a las salidas MIC y EAR* del 
aparato grabador-reproductor de casetes. 


2.? Rebobinar la cinta hasta la zona de la casete, a partir de la cual se desea 
iniciar la grabación del programa. Si la cinta está totalmente rebobinada, 
hay que tener la precaución de no empezar la grabación hasta que no se 
haya sobrepasado la parte de cinta transparente; esto se consigue dejándola 
correr unos segundos. 


3.2 Teclear la palabra SAVE (C SAVE en algunos microodenadores) y a conti- 
nuación el nombre entre comillas que se desea asignar al programa. El nú- 
mero de caracteres del nombre del programa no debe sobrepasar un valor 
máximo; éste depende del microordenador (consultar el manual). 


4.? Pulsar la tecla RECORD y PLAY del aparato grabador-reproductor de casetes. 
5.2 Pulsar en el teclado del microordenador | ENTER| o [RETURN] u otra equiva- 
lente, según el microordenador. 


Una vez cumplido este último paso se inicia la grabación del programa. Ésta ter- 
mina cuando aparece en la pantalla la palabra READY, OK, u otra equivalente se- 
gún el microordenador. En este instante se acciona la tecla STOP del grabador-re- 
productor para que la cinta no siga avanzando. 


Si todo ha funcionado correctamente, en la casete se obtiene una copia del pro- 
grama con el nombre asignado. 


(*) En el microordenador ZX Spectrum, antes de proceder a grabar hay que desconectar el termi- 
nal que lleva incorporado. 
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Ejemplo: 


En la memoria del microordenador se encuentra almacenado un programa. Guardar 
este programa en una casete con el nombre PROGRAMA 1. 


Suponiendo que el cable que une el microordenador y el aparato grabador-repro- 
ductor de casetes está correctamente conectado, el proceso a seguir es éste: 


e Se coloca la casete en el aparato grabador-reproductor. 
e Se teclea en el microordenador 


SAVE "PROGRAMA 1” 


No pulsar todavía la tecla | ENTER 


e Accionar las teclas RECORD y PLAY del aparato grabador-reproductor. 
e Pulsar ahora la tecla | ENTER]. Se inicia, entonces, la grabación. 


No olvidarse de accionar la tecla STOP del grabador-reproductor después que apa- 
rezca en la pantalla READY, OK, etc, para que no siga avanzando la cinta. 


Reproducción de programas grabados en casete 


Para pasar a la memoria del microordenador un programa que se encuentra gra- 
bado en una casete hay que realizar las siguientes acciones: 


1.2 Colocar la cinta en el aparato grabador-reproductor en una zona anterior y 
próxima a la que se encuentra grabado el programa. (Si el aparato tiene un 
cuentavueltas la localización del programa en la casete evita cualquier tipo 
de tanteos en su búsqueda.) 


2.2  Teclear LOAD (C LOAD en algunos microordenadores) y a continuación, entre 
comillas, el nombre del programa que se desea reproducir. Escribiendo el nom- 
bre, se consigue que el microordenador ignore otros programas que pudieran 
estar grabados en la casete. 

3.2 — Pulsar la tecla u otra palabra equivalente, según el microordenador. 

4.* Pulsar la tecla PLAY en el aparato grabador-reproductor. 


Cumplida esta última acción, la cinta empieza a avanzar, pero el microordenador 
no introducirá nada en su memoria hasta que no encuentre el nombre del pro- 
grama tecleado en la acción 2.?. 


Concluida la «carga» del programa en la memoria del microordenador, aparece 
en la pantalla la palabra READY, OK u otra equivalente. En este momento, accio- 
nar la tecla STOP del aparato grabador-reproductor para que la cinta no siga 
avanzando. 


Ejemplo: 


Cargar en la memoria del microordenador el programa grabado anteriormente en la 
casete. 


e Colocar la cinta en el aparato grabador-reproductor. 


217 


e Teclear en el microordenador 
LOAD “PROGRAMA 1” | ENTER 


e Pulsar la tecla PLAY del aparato grabador-reproductor. Se inicia, entonces, 
la “carga” del programa. 
No olvidarse de accionar la tecla STOP del grabador-reproductor después que 
aparezca en la pantalla READ, OK, etc. para que no siga avanzado la cinta. 


Si en la acción 2.* se omite el nombre del programa, la instrucción LOAD ” 
carga el primer programa que encuentre. 


"” 


Otras posibilidades 


Todos los microordenadores poseen las instrucciones SAVE (o C SAVE) y LOAD 

(o C LOAD). Sin embargo, la mayoría de los microordenadores poseen otras posi- 

bilidades en el proceso de grabación-reproducción; algunas de ellas pasamos a 

considerar. 

e VERIFICAR un programa que se acaba de grabar. La verificación consiste 
en comparar el programa grabado en la casete y el almacenado en la memoria 
del microordenador. Este proceso permite comprobar si ambos son iguales. 


e UNIR un programa grabado en una casete con otro que se encuentra en 
la memoria del microordenador. En este proceso hay que tener cuidado de 
que los números de instrucciones de ambos programas no coincidan, ya que 
en caso contrario las instrucciones del primer programa con idéntico número se 
perderían. 

e HACER que un programa que se acaba de cargar en la memoria del mi- 
croordenador se ejecute automáticamente, sin necesidad de escribir la 
instrucción RUN. 

e GRABAR datos numéricos o de cadenas alfanuméricas que posteriormente 
se utilizarán en la ejecución de un programa (tratamiento secuencial de 

archivos). 
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Apéndice B 


PALABRAS BASIC ESTUDIADAS EN ESTE LIBRO 


Palabras BASIC Función que realiza 


ABS (X) Da el valor absoluto del número X 

ASC (X$) Da el número de código ASCII corres- 
pondiente al primer carácter de la ca- 
dena X$. 

ATF,C Sitúa el cursor en la posición corres- 183 
pondiente a la fila F y a la columna C. 

ATN (X) Calcula el arco cuya tangente es X. (El 
arco calculado se expresa en radianes.) 

CHR$ (X) Da el carácter del código ASCII corres- 210 


pondiente al número X. (X es un en- 
CLS 


tero comprendido entre 32 y 128.) 


Borra lo escrito en la pantalla, pero no 
lo almacenado en la memoria del mi- 
croordenador. 


CLOAD "XXX" | Carga en la memoria del microordena- 
(oLOAD “XXX”) | dor un programa grabado en una ca- 
sete con el nombre XXX 


Continúa la ejecución de un programa 
interrumpida por la instrucción STOP. 


CODE (X$) Da el número del código ASCII corres- 
pondiente al primer carácter de la ca- 


dena X$. 


COS (X) Calcula el coseno del ángulo X, expre- 


sado en radianes. 


C SAVE "XXX" Graba en una casete con el nombre 
(oSAVE “XXX") | XXX un programa almacenado en la 
memoria del microordenador. 
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DATA Almacena los datos que serán leídos 69 
por una instrucción READ. 


DEF FNA (X) 


DIM L(N) 


DIM T(N,M) 


END 
ENTER 


EXP (X) 


FNA (X) 


FOR V=i¡ TO t 
STEP s 


GOSUB n 


GOTO n 


IF (condición) 
THEN 
(instrucciones) 


INPUT A 
INPUT A$ 


Define una función numérica de nom- 155 
bre FNA y de variable X. (Para definir 

otras funciones cambiar la letra A por 

otras del abecedario.) 

Dimensiona una variable de un índice. 114 
Dimensiona una variable de dos ín- 125 


dices. 


Da por finalizado un programa. 


Hace que el dato o instrucción tecleados 20 
se almacene en la memoria. 


Calcula la potencia e*, siendo e = 155 
2.71828 


Da el valor de la función de nombre 155 
FNA previamente definida, para el va- 


lor X. 


Ejecuta un conjunto de instrucciones, 
llamado bucle, que empieza con la 
instrucción FOR y termina con una ins- 
trucción NEXT. 

(Variable: V; valor inicial de V, ¡; tope 
t; incremento, s.) 


Transfiere el control de la ejecución de 164 
una subrutina que empieza en una ins- 


trucción numerada con n. 


48 


Transfiere el control de la ejecución a 
la instrucción del programa numerado 
con n. Esta instrucción puede ser ante- 
rior o posterior a n. 


Si se cumple la condición entonces se 51 
ejecutan las instrucciones que siguen a 
THEN; y si no se cumple se ejecuta la 
instrucción escrita en la línea siguiente. 


Permite introducir datos numéricos O 33 
alfanuméricos, los cuales se asignan a 94 
la variable A o A$, respectivamente. 
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INT (%) 
LEFT $ (A$,N) 


LEN (A$) 
LET variable = 


= expresión 


LIST 

LIST n 
LIST n,-n> 
LIST n — 


LN (X) 
LOCATE C, F 
LOG (X) 


MID $ (A$,P,N) 


NEW LINE 


NEW 


NEXT V 


ON VGOSUB 
M1... Mk 


Calcula la parte entera del número X. 

Extrae los N primeros caracteres de la 100 
cadena almacenada en Af. 

Da el número de caracteres de la ca- 97 
dena almacenada en A$. 

Calcula el valor de la expresión y lo 20 
asigna a la variable. 


Hace aparecer en la pantalla: 

— Todo el listado del programa alma- 
cenado en la memoria. 

— La instrucción n. 


— Las instrucciones comprendidas en- 
tre n, y n,, ambas inclusive. 

— Las instrucciones comprendidas en- 
tre n y la última, ambas inclusive. 


Calcula el logaritmo natural o nepe- 
riano de X. 


Sitúa el cursor en la posición corres- 186 
pondiente a la columna C y a la fila F. 


Calcula el logaritmo decimal de X. 155 


Extrae N caracteres de la cadena alma- 
cenada en A$ desde la posición P, si- 
guiendo hacia la derecha. 


Hace que el dato o instrucción tecleados 
se almacenen en la memoria. 


Borra todo el contenido de la memo- 
ria. 


20 
Transfiere la ejecución del programa a 79 
la instrucción FOR del bucle siempre 
que el valor de V sea menor o igual 
que el tope del bucle. 


Transfiere el control de la ejecución a las 
subrutinas que se inician con las instruc- 
ciones ny, Mz, ..., MN; según V valga 1, 
: 
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ON V GOTO n.... | Transfiere el control de la ejecución a las 169 
Mn instrucciones n;, Mn, ..., Ni del pro- 
grama según V valga 1, 2, ..., k, respec- 
tivamente. 
PAUSE N Detiene la ejecución del programa y re- 105 
tiene la imagen un tiempo que depende 
de N. 
PEEK (X) Da el contenido de la posición de la me- 206 


moria de dirección X. 


POKE N, V Almacena el valor de V en la posición de 


la memoria de dirección N, (V es un en- 
tero comprendido entre O y 255). 


PRINT Escribe o imprime el valor de la variable, 36 
el resultado de operaciones aritméticas y 
texto entrecomillado. 


RANDOMIZE y | Da un número aleatorio entre 0 y 1. 150 
RND 


READA, B, ..., X | Asigna a las variables A, B, ..., X los 
datos almacenados en una instrucción 
DATA, en forma secuencial. 


69 


Permite añadir aclaraciones o comenta- 
rios en un programa sin afectar su eje- 
cución. 


RESTORE Permite volver a leer desde el principio 72 


de los datos contenidos en las instruc- 
ciones DATA. 


RETURN Hace que el dato o instrucción tecleado 20 


se almacene en la memoria. 


E 


RETURN Última instrucción de una subrutina, 164 
cuya función es transferir el control de 


la ejecución siguiente a la GOSUB del 
programa principal. 


RIGHTS (AS$,N) Extrae los N últimos caracteres de la 100 
cadena almacenada en Af. 
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RND (A) 


RUN 


SGN (X) 


SIN (X) 


SQR (X) 


STOP 


STR$(N) 


TAB (N) 


TAN (X) 


TO 


VAL (N$) 


WAIT (N) 


Calcula un número aleatorio entre 0 y 
1 (A es un argumento, al que habitual- 
mente se asigna el valor 1.) 


Inicia la ejecución del programa. ("Co- 
rrer el programa”) 


Calcula el signo de X (+1, si X > 0; 0 
si X= 0; -1 si X < 0). 


Calcula el seno del ángulo X, expre- 
sado en radianes. 


149 


Calcula la raíz cuadrada de X. 


Detiene la ejecución del programa 


justo en la línea en que se encuentra 
STOP. 


Convierte el número almacenado en N 
en una cadena numérica. 

Mueve la posición del cursor a la co- 
lumna N. 


Calcula la tangente de X, expresado en 
radianes. 


A$ (N TO M): estrae una subcadena de 
A$ desde la posición N a la M. 


Convierte la cadena numérica almace- 
nada en N$ en su valor numérico. 


Detiene la ejecución del programa y re- 
tiene la imagen de la pantalla un 
tiempo, que depende de N. 


223 


98 


105 


, NA 
ES y O ” NA 
1 RS N 


JA 


NTRA 
Id - Gráficos, ¿Colores y mus ica E o 
enel ZX Spectrum O 
a - MSX. Pri ogramación con Gráficos, vz 


Y 
— NA 

- Colore s y Música UA ES DS NS 
dr 


pe nv Do SA y 
ES - Basic Dad de PON A YN 
Ma A 


' 

1 

e 

N / 

A! 

N Ñ TA 
O NER 
hiI_=1 


NE Na 


QA 

: - Programas resueltos nBASIO 7, 
APS y» 

ERAS ón - Aplicaciones o NE AS 


di 
DEN 
AS 


N 


SA 
N/A 
V 2 
-” 
0% 
WEA 
s A 
Y 
sa / 
Ss 
[ 


eS CAER Nel Pa LOS A 

ss E y AN SEEN 
SAO a 

A De NAO 

e A de _- 

A A o A ol A E 
A e IN, AN IN 

AS E TA 

O EN 


